OT VIME: 4 NIIMRED 
VOL 1 & NUMBER 


PEERUE 


FOR THE BBC MICRO 


1ØØØ DEFPROCsetvars (num width’) 
1910 lives=3:screen=1 4 3=1Ø9 
J20 |2S%=5Ø: TZ ¿£ Minter" 


Score (20) 
E=1 TO 20 


1Ø6Ø NEXT set: PRINT "DA :0aded OK." 
1970 itle: PROCchars SNDPROC 


BEERUS FILER 
Product Sleut! ne = 
Description A revolutionary debugging tool for Basic programmers featuring. 


n dual sereen operation, single step and speed adjuster... 
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Birthday 


TECTA 


a given date 

all birthdays 

all school dates 
dates to be remembered 


s over a given period 


ACE to continue 


Personal Diary Manager 


Games Reviews 


` 
Då 04 LIGHT VEAR: 


EDITORIAL JOTTINGS 


Many of the articles and programs that appear in 
BEEBUG magazine originate as contributions sent in 
by members without any prior warning. Indeed some 
of our best and most exciting programs arise in this 
way. Other articles and reviews are produced by a 
small group of longstanding and valued contributors 
whose names you will see quite often. 

Although we already receive a substantial quantity 
of material, we are always on the lookout for anything 
particularly novel or innovative, as well as other good 
well written material. If you would like to contribute 
to BEEBUG then let us have your programs, articles 
and ideas. It always helps us if you do include a 
written or printed summary of your submission, and 
enclose a copy of any programs on disc or cassette. 

We do pay generously and promptly for 
everything published. We will also send you a copy of 
our “Notes of Guidance for Contributors” if you send 
us an A5 SAE. Please note that any contributions, and 
any other correspondence intended for the editorial 
office, should be sent to us at P.O. Box 50, Holywell 
Hill, St Albans AL1 3YS. 


BEEBUG SHOP 


We are very pleased to announce that we have now 
opened a shop/showroom in our St Albans premises 
(some of you will already know of this). This will 
enable us to offer a wider range of computer products 
to members and will, of course, also stock all 
BEEBUGSOFT software and other items. We hope that 
many BEEBUG members will take the opportunity to 
visit us, to browse, and to discuss their requirements. 
The full range of shop items is available to both mail 
order and personal callers. Full details of the 
products available and information about the shop 
can be found in the leaflet enclosed with this issue. 


PROGRAM CLASSIFICATION 


All programs in the magazine, and on the 
magazine cassette/disc, are marked with the symbols 
shown below. An unmarked symbol indicates full 
working, a single line through a symbol shows partial 
working (normally some modifications will be 
required), and a cross through a symbol indicates a 
program that will not work on that type of system. 
There is also a symbol for the B+ which includes the 
128K version. 


Basic I I Electron C 


I Disc B 
Tube + Cassette = 
+ 


Basic II 


Model B+ 


(> 
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Members’ Discounts 

Thank you for featuring 
our name and address in 
previous issues. We must 
now ask you to delete it as 
we have decided to withdraw 
from the computer market 
place. 


When we started at the 
end of 1982 we considered 
that home computing would 
be a natural extension to 
our established business as 
stationers and office 
equipment dealers. After 
all, aren't we all going to 


have an electronic office 
in our own homes? 
The Beeb was the first 


machine we supported and it 
continued to be the 
mainstay of our activities. 
By the summer of 1983 
programs did not sell on 
their merits but on the 
outrageous "hypes' of 
marketing men in the newly 
emerged computer magazines. 
BEEBUG alone has remained 
true to its readers in 
providing honest appraisals 
of software. 


At the same time we 
found that returns of 
allegedly faulty software 
were reaching epidemic 
proportions. Adults and 
youngsters alike were pre- 
pared to bring other shop's 
software back and lie 
blatantly about the tape 
"they bought yesterday". In 
fairness, we must add that 
the percentage of Beeb 
software returned was con- 
sistently lower than for 
other user groups. 


The market place has 


changed drastically and we 
are happy to leave it to 
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others. Our thanks for 
their custom to all the 
BEEBUG members who have 
written to us in the past. 
Peter Southeran 

Director 

A.A.Southeran Ltd. 


Mixed Reception to Watford 

Thank you for returning 
the magazine disc for Vol.3 
No.1Ø about which I had 
complained that certain 
programs did not run on my 
machine. I took the disc 
along to Watford Elec- 
tronics and was told that 
the Watford DFS 1.2, the 
version I had, would not 
run these programs. I had 
to buy a DFS 1.43 chip for 
£7 before the 'Mixed Modes' 
program would run at all. I 
thought you might like to 
warn others. 

Norman Barker 


Although we are unable to 
test all magazine programs 
on all versions of other 
DES chips, we do regularly 
use a Watford DFS 1.40. We 


have found that in general 
there are few if any 
problems in running 


programs with the Watford 
DFS 1.3 or later versions. 


Larger Factorials 
Surac's article on 
‘look-up’ tables (Workshop 


in Vol.4 No. 4) reminded me 
of a way to allow the BBC 
micro to manipulate 
factorials greater than 33! 
(8.6833E36). Logarithms can 
be used to generate the 
value of the factorial, 
which can then be stored 
for use in any calculation. 
For example: 


198 !=1Ø" (Log]1ØØ+Log99+ 
Logos as i fe id) 
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The log series can be pro- 
grammed as: 


108 DEF FNlog (n) 

11Ø LOCAL result,sub 

120 IF n<=1 result=LOG (1) 
ELSE result=log (n)+ 
FNlog (n-1) 

138 =result 


The results of this are 
perfectly satisfactory for 
statistical and many other 
calculations where the end 
result is not out of range, 
though the method will not 
help in calculating indi- 
vidual factorials greater 
than 33! 

Andrew Farmer 


This is a useful technique, 
though with limitations as 
described. In fact, many 
mathematical functions can 
be represented as a series. 
This is how Basic and other 


languages calculate such 
functions as SINE and 
COSINE. 

Puzzled 


The following 6 program 
lines might be of interest 
to those of your readers 
that get frustrated trying 


to solve their jigsaw 
puzzles using the program 
you published in Vol.4 


No.3. Pressing key 'S' will 
now complete the puzzle. 
2191 IF K%=83 PROCsolve 


3000 DEF PROCsolve 
3010 FOR j%=Ø TO mN%-1 


3020 IF T%(j%)=j% THEN 3060 
3030 FOR k$=j% TO mN%3-1: 
3040 IF T%(k%)= Ea uS=k3 


3050 NEXT: PROCS) ie Se 
3863 NEXT 
3878 ENDPROC 

P.Grilli 


tel 
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SPELLCHECK UTILITY DISC 


A utility disc is now 
available for users of 
Spellcheck II (or the new 
Spellcheck III), and offers 


two useful routines. The 
first will transfer words 
from a Spellcheck I 


dictionary dise to a 
Spellcheck II (or IT) 


disc. The second will list 
the words in your 
dictionary disc to the 
screen or to a printer, 
alphabetically sorted by 
the first letter. 

As a service to 
members, this disc is 


available at £4.ØØ plus 59p 
post and packing. 


SLEUTH 
An Enhanced Version 


A new version of 
Sleuth, our Basic debugging 
ROM, is now available and 
an upgrade service is 
offered to owners of 
versions prior to 1.06. The 
new version has the 
following, additional, 
facilities: 


1) The ability to 
enter Sleuth directly 
from any stage of your 
own program. e.g.: 

IF D%=10 THEN *SLEUTH 
or: 

ON ERROR *SLEUTH 
and so on. 
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2) The new command 
‘OUT' to exit Sleuth 
and continue running 
your program outside 
Sleuth, from the 
current line. 


3) Dual screen work- 
space may be located in 
sideways RAM. 


4) Variable update now 
includes arrays. 


5) Aries B-2Ø and 
Watford 32K Ramcard 
compatible. 

Members wishing to 


upgrade should send £7.59 
plus 5Øp post and packing 


with their old ROM and 
manual to the St. Albans 
address. 

DUAL FORMAT DISCS 


A number of our 
programs are now supplied 
on dual format (40/80 
track) discs. Consequently 
it is not possible to copy 
them using the normal 
*BACKUP command. Should you 
wish to keep your original 
disc safe and work from a 
copy, you should use the 
following comand: 

*COBY S D ** 

(where S and D are source 
and destination drives). 


This will abruptly 
terminate with disc fault 
18, leaving uncopied two 


special dumy files (which 
unusually have filenames 
containing space and 


asterisk characters). Care- 
fully check that all the 
other files have been 
copied and use 
*COPY S D <filename> 

to copy anything missing. 
You will then have a new 
working copy of the disc. 
Remember to reset the 
auto-boot option with the 
*OPT command (i.e. *OPT 
4,3). 


We would remind you 
that unauthorised copying, 
apart from the production 
of one backup copy only for 
use by the purchaser, is 
strictly illegal. 


EXMON II LABELS 


To create labels in the 
Exmon II assembler/editor, 
enter the editor at the 
address required and, if 
necessary, press Tab to 
enter the assembler. Now 
type in the label preceded 
by a full stop and followed 
by <Return>. For example, 
to label the OSASCI and 
OSWRCH entry points follow 
this procedure: 

*EXMON 
E FFE3 
-osasci <Return> <Escape> 
E FFEE 
-oswrch <Return> <Escape> 


TECHNICAL QUERIES 

Our team will be 
pleased to answer your 
queries concerning any of 
our products - their 
features, their use, or 


their compatibility with 
other hardware/software. 


All inquiries should be 
addressed to: 

The Software Manager, 

PO Box 50, 

St. Albans, 

Herts., ALI 3YS. 


Please ensure that you 
provide us with full 
details of your set-up, 
including OS and Basic 


version numbers, other ROMs 


in your machine, and 
details of all hardware 
attached. 

TE you prefer, 


technical queries may also 
be made by telephone 
between 2.00 and 4.3Ø in 
the afternoons. Our hotline 
number is 0727-40303. 


z] 
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New Concepts 
Computer Concepts is to 


launch another 
next month. The speech 
extension ROM is used in 
conjunction with Computer 
Concepts' previous speech 
ROM. It gives full text- 
to-speech conversion with 
semi-intelligent trans- 
lation of the quirks of the 
English language into the 
phonemes recognizable by 
the older speech ROM. 


speech ROM 


Computer Concepts' 
other promised 'ROM-link' 
ROMs are due out in the 
next few weeks too. Inter- 


word and Inter-base are the 
word processor and database 
of the system, respect- 
ively. Inter-word offers 
full on-screen formatting 
in an 8Ø or 195 column 
format and costs £65. 
Inter-base comes on two 16K 


EPROMS (for £69) and 
provides an essentially 
language-based database 
management system with full 
control over the other 


ROM-link products as well. 


Computer Concepts is 
also keen to point out that 
the Inter-chart business 
graphics package is com- 
patible with the Plotmate 
plotter (see BEEBUG Vol.4 
No.4). Computer Concepts is 
on 9442-63933. 


Watford Speeds Up 

The Delta Card is the 
latest offering from the 
ever-prolific Watford Elec- 
tronics. This board 
contains a 4MHz 65CØ2 and 
64K of fast RAM and enables 
your Beeb to run up to 
twice as fast as normal. 
The Delta Card costs £114 
complete with its control 
ROM, and is claimed to be 


compatible with all 
software written for the 
normal Beeb. 


Yet another Watford 
Electronics DFS is 
available. This time it is 
a double density DFS for 
the B+. The B+, of course, 


already has a double 
density disc controller 
chip so this product is 
merely the DFS ROM to 


enable the B+ to use double 
density discs. The B+DDFS 
has all the features of the 
old model B version and 
costs £40. Unlike previous 
Watford DFSs, this price 
includes the manual. Also 
in the sideways arena, 
Watford has a 16K sideways 
RAM module to tempt you. 
Costing £29 the module will 
plug into any ROM board or 
even the Beeb's main 
circuit board and can be 
fitted with write and read 
protect switches at an 
extra cost of £2. Further 


details from Watford on 
0923-37774. 
Cheap IEEE 

As an alternative to 


Acorn's unit, the TE-4881A 
interface from Tussen 
Electronics enables you to 
connect any IEEE-488 
standard instruments and 
other laboratory devices to 
the Beeb. The TE-4881A 
costs £138 from Tussen on 
851-648 4488. 


Kiss and Tel 

BBC Publications has 
joined the throng of 
Viewdata services for the 
Beeb with a new service 
called Owltel. The service 
operates 24 hours a day on 
81-927 5828 and provides 
free information on BBC 
Soft products and the 
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Computer Literacy scheme 
for anyone with a suitable 
modem and software. 


Ramifications 
Promicro's 16K RAM 
module is a convenient 


method of adding sideways 
RAM to your Beeb. It is 
based around two piggyback 
8K chips and can be plugged 


into any sideways ROM 
socket with a single flying 
lead. Unlike similar 
systems adopted by many 
Acorn users, Promicro's 
costs only £29.58. Further 


details from the company on 
61-554 6219. 


Top Tandata 

Tandata has launched 
yet another modem. At £535 
the Tm602 is not cheap but 
it offers 1200/1200 full 
and half duplex, 300/300, 
1200/75, and 75/1200 
standards, auto-dial, auto- 


answer, and auto-logon and 
is fully BT approved. 
Further details from 


Tandata on Ø6845-68421. 


Designs on 3D 

Interactive 3D is a 
package for designing 3D 
models on the Beeb's 
screen. Unlike most 3D 
graphics systems, I3D does 
not require co-ordinate 
entry but actually allows 
you to design solid objects 
on the screen by showing 
you four views of the 
object at once. Lines are 
created and moved into 
position with the cursor 
keys and completed models 
can be saved to disc or 


cassette. Interactive 3D 
costs £8.95 (cass.) or 
£12.95 (disc.) from Data 


Dynamics on 0525-402447. 
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ACORNSSFT 


GRAPHICS 
EXTENSION 
ROM 


If you want to transform your 
graphics displays then 
Acornsoft's long-awaited 
Graphics Extension ROM could 
be the answer. Mark Sealey has 
been putting the ROM to work. 


Product : Graphics Extension ROM 
Supplier : Acornsoft 
Cambridge Technopark, 
645 Newmarket Road, 
Cambridge CB5 8PD. 
0223-214411 
Price : £29.90 
Acorn's Graphics Extension ROM (GXR) 
provides a set of additional graphics 
commands for spectacular, new and easy 
shape drawing and filling, copying and 
moving areas of the screen, and a variety 
of shadings. In addition, Acorn have 
provided a sprite graphic utility. 


Unlike Computer Concepts' Graphics ROM 
which used a variety of new * commands, 
GXR mainly uses the PLOT extensions which, 
until now, had the famous ‘for future 
expansion' description, and provides new 
VDU23 and GCOL parameters. 


Any language that supports the PLOT, 
GCOL and VDU commands can make use of 
these routines provided the GXR ROM is 
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installed and activated. It is 6502 Second 
Processor compatible and will also work on 
the Electron as well as with the Aries 
B-2Ø RAM Board. However, for use with the 
Bt, a special version of the GXR is 
available. 


The ROM is activated by *GXR and can 
be turned off by *NOGXR. A rather hefty 
three pages of RAM are lost when the ROM 
is activated so PAGE is reset to &1CØØ on 
a disc system. Other * commands available 
from within the ROM are an online HELP 
list of the codes, the sprite controls, 
and a *FLOOD/NOFLOOD option. Use is also 
made of *FX163. 


Supplied with the package are example 
programs on cassette with a special 
tape-to-disc transfer utility. The copy of 
the pre-release manual was up to Acorn's 
usual standard in its clarity. Each 
section begins with a diagram of a sector, 
arc, ellipse or whatever, explains the 
simple codes to achieve the effect and 
then gives longer examples. 


The PLOT calls (with the exception of 
the Copy routines) follow the old pattern 
of coding described on page 319 of the BBC 
User Guide (i.e. 1 is current graphics 
foreground, 2 relative logical inverse 
colour, etc.). PLOT may now take codes 
between 88 and 248 as its first parameter, 
to draw and/or fill rectangles, 
parallelograms, circles, ellipses, arcs, 
segments and sectors. 


For example, using the old way to fill 
a rectangle with two filled triangles (two 
MOVE and two PLOT instructions) is prone 
to mistakes and about twice as slow as the 
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colour mixing to its limits by pixel/bit 
manipulation (using VDU23). It must be 
The Aoornsaft Graphies Exlenaion ROM said that whilst the commands are within 
the true tradition of BBC Basic, they are 
very user unfriendly: 


VDU 23,2,&1D,&2A,8&1D,&2A,&1D,&2A,&1D,&2A 


This redefines GCOL 16,8 in mode 2 to 
give a white and green stippled mix. A 
virtually infinite mixture of colours and 
hues is possible, and well demonstrated in 
the examples supplied. Some understanding 
of how the BBC micro handles pixels is 
essential to make the most of this 
facility, but the principles are well 
explained in the manual. All the options 


new method: are there, if you seek them out. It is 
also possible to extend the ways in which 

MOVE 208,800 :REM top left corner flood fill works, chiefly by setting the 
PLOT 101,700,200 :REM bottom right. conditions which determine when it will 


stop - which fore or background colour, 

To draw a filled ellipse (hitherto etc. Again, it is a very versatile and 
requiring almost advanced qualifications fast set of commands. 
in geometry (see BEEBUG Workshop in Vol.4 
No.3), you simply MOVE to the centre, MOVE Copying and/or moving any area of the 
to the right-hand point or wider radius, screen to any other position could not be 
and PLOT (with first parameter in range 
200-207) the top (or narrow radius). This 
gives an almost instantaneous block fill. 


Many of these extended routines will 
be useful as utilities in, say, pie-chart 
routines for extended software written in 
Basic and really are impressively fast - 
presumably as it accesses the OS directly 
(hence the ROM's own version number, 1.2). 


PATTERN AND SHADING STYLES 


It has long been known that the GCOL [ | DIONNE 


command is capable of extension beyond 


what is outlined in the User Guide. Only 7 a 
months after the BBC micro's appearance CUBE EE 
Gaelsett released their Extended Graphics Rs ERES nets SEES EE 


utility on tape. Now Acorn's own ROM takes 


SIMPLE SHADOWS - Nicholas Ahmon 

Text in modes | and 5 can be given a 3D effect using *FX155,N. A shadow is produced 
'behind' each letter in the colour specified by the value of N. The whole screen is 
affected and the shadows can be cancelled either by changing mode or using *FX155,B 
with B the value of the background colour. 


MORE USER DEFINED CHARACTERS - Jonathan Temple 

Up to 64 user defined characters can be defined without using *FX2Ø or moving PAGE 
by first including 2836D=&B. The 'extra' definable characters are numbers 192-223. The 
definitions reside from &ØBØØ but this can be altered by changing the right hand side 
of the statement. s] 
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easier. You first mark with two 


co-ordinates (bottom-left, top-right) the 
area to be copied from. Then PLOT (range 
184-191), newx, new where it is to be 


moved to. 


Included in the example programs is a 
fairly simple CAD package that makes use 
of most of the facilities contained in the 
ROM. More sophisticated drawing programs 
abound, but the fact that this one is 
written in Basic and yet still plots, 
draws and fills so quickly is evidence of 
the Graphics ROM's own in-built speed. 


The final feature of the Extension ROM 
is a sprite facility. It allows you to 
design and edit up to 256 sprites (with 
PAGE still at «800 with a Second 
Processor). Each can then be driven from 
Basic by selecting it as number n: 
*SCHOOSE n followed by PLOT (range 204 to 
211) and its x,y co-ordinates. A sprite is 
loaded and saved as a block of memory, and 
a very impressive feature is that of 
defining (another VDU 23 command) any area 
of the already plotted screen and actually 
moving this as a sprite. 


CL 


DNES CATS - Eric Pope 
Cataloguing 


alphabetic order by ASCII code - lower case letters have a to : 
The DNFS also arranges catalogues in alphabetic order but makes no distinction 


case. 
between upper and lower case. 


The GXR's 
circles, ellipses, 


commands for 


drawing 

and so on are also 
available on Computer Concepts' Graphics 
ROM. However, this does not allow the easy 
passing of variables to the extra graphics 


commands as does GXR. In addition, 
although GXR has no text angling and 
enlarging facilities nor turtle graphics, 
its colour mixing and character filling 
abilities more than make up for this. 


Now for the bad news. Whilst using the 
Graphics ROM it behaved perfectly but 
there was a definite clash with Wordwise 
Plus, causing this to do all sorts of 
unlikeable things. I understand that this 
is because the latter makes use of *FX163 
calls reserved for Acornsoft ROMs. It is a 
major drawback for users of both and it 
remains to be seen whether Computer 
Concepts can modify this excellent 
wordprocessor to avoid these clashes. 


However, this long-awaited ROM is 
cheap as ROMs go and makes fill, draw, 
copy and shade/colour routines both easy 


and very quick, using already familiar 
commands. Imagination - as they say - is 
the only limitation. =] 


a disc with the Acorn (or Watford) DFS produces a list of files in 


lower priority to upper 


NEW CHARACTERS IN MODE 7 = R.J. Walking 


For a 'different' character set in mode 7 (the CRTC chip registers are changed) 
type in: VDU23;8,144,0;0;0;23;9,9,0;0;0; 
To restore things to normal use: VDU23;8,147,0;0;0;23;9,18,0;0;0; =] 
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'Electronic 
Mail' conjure up visions of the high-tech 


The very words 


society that we are all going to live in 
one day soon, and I have recently been 
trying out some of these systems for my- 
self. I am pleased to report that it is 
possible to use your Beeb as a high-speed 
electronic postman today, but that there 
are just one or two little snags. 


The modern business executive is 
somewhat spoiled for choice as far as 
electronic mail services are concerned, 
and several companies are making a 
respectable living by providing him with a 
whole range of electronic services. The 
home user is not quite so well off, but 
has several means of communicating with 
other computer users at a moderate cost. 


The simplest and cheapest electronic 
mail service is available to Prestel and 
Micronet users, but there are some 
problems that only become apparent when 
you try to use the services in earnest. 
Prestel messages are actually 'free' once 
you have paid your subscription ("16.50 
per quarter for Prestel/Micronet), your 
telephone bill, and the computer-connect 
time charge of 6p per minute if you are 
using the system during office hours. This 
latter charge is waived between 6pm and 
8am on weekdays, after lpm on Saturday and 
all day on Sunday. 


The first problem that you come across 
is the rather fundamental one that you can 
only communicate with other Prestel users, 
and the same holds true for any of the 
other systems - both you and your corres- 
pondent must be members of the same 
electronic mail service. This is somewhat 
restricting when trying to write to dear 
old Auntie Flo, but is very useful when 
trying to talk to friends who are computer 
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fans. Finding out whether or not your 
friends are system users, and their 
electronic mail numbers, is made easy 
by an on-screen directory, and if you 
really do want to hide your light 
under a bushel you can still be 
‘ex-directory’. 


When using the Prestel message 
service you are provided with a 
simple teletext-type standard page 
on the computer screen which has 

blanks for you to type your message 

in. No more than about 1ØØ words 
can be fitted onto a Prestel message page, 
which restricts you to short notes. The 
message service is extremely easy to use, 
with simple instructions on the screen. 


The service proved extremely efficient, 
messages being received in different parts 
of the country, via different Prestel 
computers, within just a few seconds. When 
you first switch to Prestel the screen 
warns you if any incoming messages are 
waiting for you to read, and once you have 
read them you are offered the choice of 
storing the messages for further reference 
in the Prestel computer, or deleting them. 
If you need to send a message to an organ- 
isation that has the old-fashioned telex 
service, rather than your up-to-date elec- 
tronic mail, Prestel allows you to send a 
short telex message anywhere in the UK for 
5@ pence, and has recently extended the 
service worldwide, a most useful service 
for a comparatively low charge, especially 
when you remember that there are more than 
one and a half million telex users. 


There are a few points to bear in mind. 
You cannot, of course, find out if any 
messages are waiting 


ssage 
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for you without dialling 
and that costs money. Further, 


Prestel, 
the 1200/75 baud rate used by Prestel 
means that sending your messages can be 
very slow, even more so between the peak 
times of 6pm and 8pm. 


A far more sophisticated service is 
provided, primarily for business users, by 
British Telecom, under the label of 
"Telecom Gold', and this service has just 
become available in a form suitable for 


domestic users thanks to an agreement 
between one of the major computer 
magazine publishers and BT, which has 


resulted in the formation of 'Microlink'. 


With Microlink, the modem can bea 
simple Prestel type or the more expensive 
300/308 or 1200/1200 baud type, offering 
faster input of your messages than 
Prestel. You also need some software on 
disc or ROM. This is usually provided by 
the supplier of your modem, or you can buy 
one of the sophisticated ROMs such as 
Communicator from Computer Concepts or 
Commstar from Pace. Microlink enables you 
to use the remote mainframe computer 
almost as if it were your own. You can not 
only send messages and telexes to other 
users, but you can set up your own filing 
system on the mainframe and perform vast 
calculations. If you give other people the 
keys to your electronic filing cabinet 
they will be able to access it too from 
anywhere in the country. 


Telemessages, the modern version of the 
telegram, can be sent from your keyboard, 
and BT will ensure that they are delivered 
to any house in the UK by first post the 
next day. This service allows comunica- 
tions even with houses without a telephone 
line, and is available via Microlink for 
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only "1.25 for up to 359 words, quite a 
bit cheaper than normal telegrams. 


Microlink has its own multi-user 
bulletin boards which have enormous 
potential for making friends of computer 
users the length and breadth of the land. 
It is also part of the international 
DIALCOM network which sends your messages 


to other electronic mailboxes around the 
world at very reasonable charges since 
local-call access has been specially 
arranged even for these long-distance 
systems. Huge databases of information, 
rather like encyclopaedias, can be 


searched at will, and any of the informa- 
tion can be displayed, stored, and printed 
out when required. 


It doesn't take long playing with 
Microlink/Telecom Gold to realise that 
this is what home computing should be. An 
almost infinite database filing system 
permanently on tap and the ability to 
communicate world-wide really bring a 
whole new excitement to your hobby. The 
costs of Microlink seem reasonable. There 
is a joining fee of "5 and then a standing 
charge of `3 per month. It costs from 3.5 
pence/minute outside peak hours to 10,5 
pence/minute during the normal business 
day to use the service, and there is an 
extra charge of 2 pence/minute if you are 
outside London. There are also charges for 
storing information on the mainframe. 


Just to send messages via electronic 
mail proves to be fairly cheap and is 
immensely convenient, but I suspect that 
most users, like me, would find that they 
couldn't resist the lure of the inter- 
national bulletin boards and databases. 
Once you are on-line to these the minutes 
just fly by and the costs soar. Although I 
can think of 191 reasons for my high phone 
bills, deep down inside I know that it is 
something to do with that Beeb in the 
corner of my study! =] 


Contacts: 

Prestel Microcomputing: Freefone 100 and ask for 
Prestel sales, or 01-583 7214. 

Micronet 800: 8 Herbal Hill, London EC1R 5EJ or 
phone 01-278 3143. 


Microlink: Database Publications, Europa House, 
68 Chester Rd, Hazel Grove, Stockport SK7 5NY. 
Telecom Gold: 60-68 St Thomas St, London SE1 3QU 
or phone 01-403 6777. 
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Full-Screen 
Basic 
Program 


Editor 


The Basic full-screen editor 
presented here is extremely 
fast and powerful for its 
amazingly short length. 
This must surely be the 
utility that all Basic 
programmers have 


been waiting for. 


Although Basic's built-in 
editor is quite adequate, most 
programmers weary of excessive use 
of the Copy key after a while. What 
BBC Basic needs is a true screen 
editor that is fast and easy to 
use. That is just what the 
surprisingly short utility program 
listed here provides, and being 
written in Basic itself can be 
truly called a Basic Editor. 


But why use an editor written 
in Basic, not assembler? The high 
level language makes the listing 
much more compact for you to key in 
from this article, and far easier 
for you to customise according to 
your personal needs and 
preferences. 


The reason for NOT doing so, 
you might think, is that Basic 
could not possibly be fast enough. 
Try it out and you will be 
surprised! 


The editor consists of a 
procedure and five functions, 
designed to be merged onto the end 
of the program under development. 
Merging by means of *SPOOL and 


*EXEC is described in the User 
Guide, page 402. Once merged, they 
can be loaded and saved as one, 
until the program is finished when 
the editor lines can be deleted. 
The editor is invoked the first 
time by typing PROCED in command 
mode. This also defines function 
key 19. Thereafter you can just 
press Break to enter the editor in 
the same mode as that last used for 
editing. The editor also resets to 
their default values the *FX states 
set up at the time. 


Upon entering the editor you 
find yourself in "procedure mode". 
This means that only the first line 
of the program and lines beginning 
with the keyword DEF (one leading 
space is allowed) are listed, to 
give an overall view of properly 
structured programs (note that this 
also lists functions). Move through 
the definition list using the up 
and down cursor keys, and if it is 
long enough you will find that it 
scrolls properly in both 
directions. To actually list the 
program you need to enter 'line 
mode' by pressing Return, but first 
move the cursor either to the top 
or to the particular definition you 
want to home in on directly. 


In line mode the down cursor 
key produces a line-by-line 
listing, once again with true 
scrolling: whatever disappears off 
the top of the screen can be 
recalled with the up cursor key. 
The left and right cursor keys move 
the cursor within individual lines, 
so you can insert or delete 
characters at will. The Copy key 
gives a 'clear to end' function. 
Whatever changes you make are 
actually entered into the program 
only when you press Return, so if 
you accidentally mess up a line 
just press Escape or the vertical 
cursor key to recover the original 
version. When you do press Return 
the screen is cleared and the new 
version of the line is listed, with 
any abbreviations (like P. for 
PRINT) properly expanded. 


The Return key is also used to 
insert a new line between the 
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and the next. The 
default line number is chosen, 
provided there is room, to be the 
normal 1Ø greater than the current 
line number. If this is not 
possible, a difference of first 2 
then 1 is used. A warning beep 
means the line numbers are 
consecutive, leaving no room at 
all. 


The fact that the line number 
itself can be edited as part of the 
line enables you to copy an 
identical, or modified, version of 
a line to a completely different 
part of the program. That then 
becomes the current line. 


current line 


All this, with very little 
practice, becomes very natural to 
use. There are also just two other 
commands to learn. In line mode 
Ctrl-D is a quick way to delete the 
current line. Ctrl-S is a string 
search which asks for a target 
string, then lists downwards from 
the current line until it is found. 
The string can include keywords 
and/or line numbers. It can be used 
in procedure mode as well to 
search out a definition by name. 


Space doesn't allow a full 
explanation of how the editor 
works, but the crucial technique is 
a means of tying up communication 
between a Basic program and command 
mode, required for listing and 
entering new program lines. It is 
done without the involvement of the 
input buffer (whose 32 character 
capacity is not sufficient for 
program lines of a reasonable 
length) and without calling 
routines in the Basic ROM directly. 
The RDCHV and WRCV vectors are 
redirected to code located in Zero 
Page at &70, which in turn uses 
Page &A (normally the RS423 input 
buffer) as a buffer for input and 
output. The effect of using the 
same buffer for both purposes is 
that PRINT statements can generate 
commands which are obeyed as soon 
as command mode is entered. 
Provided the command string ends 
with a Basic function reference, 
that function will be re-entered as 
soon as the commands have been 
carried out. The code is so short 
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it is 
operator, but an assembler 
would look like: 


poked directly with the ! 
listing 


«WRCHentry STA &AØØ 
INC WRCHentry+1 
RTS 


«RDCHentry LDA &AØØ 
INC RDCHentry+1 
CLC 
RTS 


Surprisingly, such recklessness 
does not end in disaster. The 
command mode input causes echos, 
intended for the screen, which 
overwrite the common I/O buffer, 
but the RICH pointer keeps safely 
behind the WRCH pointer until the 
vectors are restored. 


As I said at the beginning, a 
strong reason for writing the 
editor in Basic was for it to be 
easy for you to modify. So I hope 
readers will send in their ideas 
for enhancements to the truly Basic 
editor described here. 


32000 DEF PROCED 

32010 MD=?8&355:IFMD=Ø ORMD=3 D%=8Ø 
ELSEIFMD=2 ORMD=5 D%=2Ø ELSED%=4Ø 
32020 ?8&8F=MD:*KEY1Ø0. |MMD=?&8F : MOD 
EMD | MPROCED |M 

32030 !&78=&1877E6ØA: ?&7C=&6Ø 

32040 IFPAGE<64ØØM%=TOP+256ELSEMS=& 
11ØØ 

32050 T%=PAGE+1:L%=M%:A%=&A1Ø:1%=16& 
2ØE 

32060 K%=Ø:W%=Ø:S5%=Ø:F%=TRUE 

32070 VDU12; : PRINT 'CHR$32 "Procedure 
mode" 

32080 *FX4,1 

32Ø9Ø *FX229,1 

321ØØ IFFNY 

3211Ø ENDPROC 

3212Ø DEF FNW 

32130 IFL%=M%=Ø 

32140 !L%=Ø:L%=L3-2:T3=!L%:=TRUE 
32150 DEF FNX 

32160 =256*?T%+T%?1 

32170 DEF FNY 

32180 !&7Ø=&E6ØAØØ8D: !874=&AD6Ø7|: ! 
&2ØE=8&76ØØ7Ø: I FWSPRINTTS '"IFFNZ":=Ø 
ELSEPRINT"L. ";FNX ' "IFFNZ":=Ø 

3219Ø DEF FNZ 

32200 !&2ØE=1%: IFW%W3=Ø:VDU12:=FNY 
32210 R3=AS+LENSAS+] : IFK$=139 PRINT 
STRINGS (0%+2+LENSR%DIV D$,CHR$11); 
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32220 0%=LENSR$DIV D%:R%? (LENSRS-1 ) 
=13:PRINT 'CHR$32; SR$; 

32230 IFF%K%=GETELSEIFLENSR3>LENSS: 
IFINSTR (SR%,S$) F3=TRUE:GOTO32230 
32240 IFK%=139:IFFNW:=FNY 

32250 IFK%=138X%=T%:REPEAT:X%=X%+X% 
22: UNTILS 30R?X3=2550RX% ?3=&DDORX% 24 
=&DD:IF?X%<255 !L%=T%:T%=X%:L%=L%+2: 
=FNY 

32260 IFK%=13 ANDNOTS%S%=TRUE: L3=M% 
: VDU12; : PRINT 'CHR$32 "Line mode": =FN 
T 

32270 IFK%=19 AND?(T%+T%22)<255F3=Ø 
: PRINT 'CHR$32"Target:"; :K%=137:S$=F 
NEL ("") : K%=138: VDU11 :GOTO32258 
3228Ø IFK%=27THEN3236Ø 

32290 IFK%=138ORK3=139ORNOTS3F%=TRU 
E:G0T03223Ø 

32300 W%=TRUE: IFK3=4 : TS=STRSENX : VDU 
7: =FNW*ENY 

32310 IFK3=1|3PRINT:H3=POS:V%=VPOS:V 
DU28;24,39,Vv%,11,26,31,H%,V%,32:N=2 
56*?(T%+T%72)+? (T3+T%322+1 ) -FNX: T=EN 
X+1-(N>2)=8* (N>1Ø) :PRINT;T; :K3=137: 
VDU6- (N=1 ) : TS=FNEL (STRST) ELSET$=FNE 
L(SR$) 


DYNAMIC MEMORY WINDOW (BEEBUG Vol.4 No.5) 
In the function key definitions in this program the vertical bar characters (|) were 


inadvertently omitted. 


The lines 


32320 T=VALTS: IFK%<>130RT=OTS="":VD 
U7:=FNY 

3233Ø IFT<FNX: REPEAT: UNTILNOTENW OR 
T>FNX: IFL3=M%T3=PAGE+1 

32340 IFT>FNX REPEAT: !L$=T%:L3=L%+2 
:T3=T%+T%?2: UNTILT <=FNX 

32350 =FNY 

32360 *FX4 

32370 *FX229 

32380 =Ø 

32390 DEF FNEL (AS) 

32400 SAS=AS:C%=A%+LENSA%:VDU1 52,8: 
REPEAT: B%=K%: IFK$=127: IFC%>A%$ (C%-1 
) =$C%:K%=136 

32410 IFK%<135:IFK3>31S(C3+1)=$C%:? 
C$=K$:K$=137 

32420 1FK%=135:2C$=13:K$=0 

32430 IFK%=136:IFC%>A%C%=C%-1:VDU8 

32440 IFK%<>B%H%S=POS : V3=VPOS : PRINTS 
C%;CHRS1 52; :V$=V$+ (VPOS=24) : VDU1Ø,3 
1,H%,V% 

32450 IFK%=137:1F?C%<>13:C3=C%+1:VD 
U9 

32460 K%=GET:UNTILK%<32ORK%>137:=SA 


j E] 


õ 


1370 DEFFNturnoff:str$="K.7*FX13,4|M":=FNoscli 
1399 DEFNturnon:str$="K.8M0.7:V.31,Ø,8:*FX14,4 |M":=FNoscli 
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Ø DEFNbreak:str$="K.1Ø0. 


+"|M":=FNoscli 


FURTHER DISC MENU EXTENSIONS (BEEBUG Vol.4 No.5) 
If you add all the extensions as published then you will encounter no problems. If 
you are just adding the extensions for Wordwise and View, or for Disc Doctor's *SWAP 
command you will also need to enter a modified version of line 123Ø as follows: 
123Ø DIM NAMES (E%-1) ,P%(E%-1) 


ROULETTE 


A 


(BEEBUG Vo1.4 No.6) 
number of lines 
the program 


ignore the redundant lines. 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


TESTING OSBYTE ROUTINES - Jonathan Temple 
Although many OSBYTE routines are not implemented as *FX calls, they can be easily 


tested from Basic, 
When prompted, enter the value for A 


to 


in this program were quite inadvertently repeated. 
however, no problem and all 


There 
listed correctly 


and the X 


registers. The routine is then called and the results printed out. 
1Ø*KEYØ I. '"A-"AS"X-"XS"Y—"Y3: R=USR&FFF4:P.'"A="7R A.S&FF:P. "X="; (R A.&FFØØ)/256:P." 
Y="; (R A.&EFØØØØ) /1674 |M 
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POINTS ARISING POINTS ARISING POINTS ARISING POINTS 


involved and their correct versions are as folows: 


M?&220=&"+STRS (code M0D256)+":28&221=&"+STRS" (codeDIV256) 


is, 
in the magazine. Just 


kl 


see their effect, with the following function key definition. 


(the OSBYTE call number) and Y 


“el 
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Build your own 
Database 


Manager 
BEEBUG Filer Part 2 


We continue our major new 
software project, BEEBUG'S own 
database program, by 
describing the file structure in 
detail and adding functions to 
provide flexible formatting and 
output of your records. 


Last month we commenced a major soft- 
ware project in the magazine to construct 
your own database program. The Basic 
program, called BEEBUG Filer, was present- 
ed in the first instalment together with a 
general introduction and description. This 
month we shall look at the fundamentals of 
our database program in some detail, but 
first we will see how we can improve on 
some of our first steps, and add some 
exciting new features. The major addition 
will allow you to output your records in a 
flexible format of your own design. 


GENERAL DESCRIPTION 

The program uses mode 3 to allow the 
maximum amount of information to be 
displayed on the screen. We shall have to 
watch memory space carefully as the 
program develops, but in the meantime we 
must endeavour to keep the program as 


concise as possible and yet provide a 
clear and readable program. You can help 
yourself by omitting all unnecessary 
spaces when typing the program in 


(including the space between the line 
number and the instruction that follows). 
This is also the reason why you will find 
reals rather than integers used throughout 
most of the program. Although integers use 
less space, every reference to an integer 


uses an extra byte (for the '%') which 
often outweighs any advantages. 
IMPROVEMENTS 

This month I want to describe a number 
of minor improvements to the original 


program. These both help to make the 
program more foolproof and more efficient, 
and pave the way for the next major 
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BEEBUO FILER 
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The Managing Director 
21vel Close 
Sarton-le-Cley 
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The Managing Director 
33 Whitehill Crescent, 
Clophill, 
Bedford 
45 2K 


=) FO FORMS 
Loading Format FORNS 
-) 


additions. I have introduced three new 
utility functions called PROCread, 
PROCwrite and PROChead. The main purpose 
here is to separate the functions of: 

read record from file 

display record on screen 

write record to file 


The procedure PROChead simplifies the 
task of updating the screen information 
header. These new functions, the other 
lines that are changed as a result, and a 
number of other minor improvements are 
listed below. The best way to update the 
original program is to type in these lines 
and save as a *SPOOL file which can then 
be *EXECed with the original program. You 
will also need to delete lines 6100 and 
6120 from the original program. 
SESE SER LTE ENESTE NTE DEE W TA IT FORRES EEE > 
1Ø5Ø delete%=Ø 

1Ø6Ø DIM com$ (20) ,recordS (maxf,1),field 
S (maxf) ,width% (maxf) , fp% (2) ,os 40 

3630 IF rec>recn THEN PRINT"File full": 
ENDPROC 

3668 PROChead (64,Ø,"Record: ",rec,4) 

3680 FOR I=] TO f:record$ (1,8) =FNinput ( 
13,L* (I-1)+1 widths (I) ,".") :NEXT I 

3788 PROCwindow2:IF FNask ("Confirm (Y/N 
): ")<3 THEN PROCwrite(rec,Ø) :rec=rect1: 
PTR#F=G: PRINTÉF, rec 

3720 PROCwindowl : PROChead (47,Ø,"",rec-1 
,4) : PROCwindow2 

4960 PROCread (1,9) : PROCdisplayl (I) 

524Ø PROChead (64,Ø,"Record: ",n,4) 

5280 FOR I=] TO f:PRINTTAB(13,L*(I-1)+1 
)recordS (1,0) :NEXT I 

562Ø PROCread (n,Ø) : PROCdisplayl (n) : PROC 
window2 

5660 IF A<3 THEN FOR I=1 TO f:records (I 
+ 9) =STRINGS (width% (I) ,".") :NEXT I:PROCwr 
ite(n,Ø) :delete%=- 

6Ø3Ø IF rec=1 OR NOT delete% THEN 6160 
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6Ø8Ø PROCread(1,9):IF ASC (records (1,0)) 
<>46 THEN J=J+1:IF I<>J-1 PROCwrite(J-1, 
Ø) 
2Ø7ØØ DEF PROCread (n,R) : LOCAL I 
20720 PTR#F=256+recs* (n-1) 

20740 FOR I=] TO f£:INPUT#F,record$ (I,R): 
NEXT I 
20768 ENDPROC 

20800 DEF PROCwrite(n,R):LOCAL I 
20820 PTR$F=256+recs* (n-1) 

20840 FOR I=] TO f:PRINTÉF, recordS (I,R): 
NEXT I 
20869 ENDPROC 
21000 DEF PROChead (x,y,msg$,n,w) 

21020 PROCinv (1) :PRINTTAB (x,y)msg$; 
21040 PRINT SPC (w-LEN (STRS (n)));n 
21060 PROCinv (Ø) : ENDPROC 


ADDING TO THE PROGRAM 

This month we are going to add two new 
features to the program involving three 
new commands and a modification of an 
existing command. These are: 

COMMANDS 

CREATE <filename>/<n> 

FORMAT <filename> 


PRINT <n> 
The first of these is quite simple and 
allows a list of all recognised commands 


to be displayed on the screen. The 
procedure will automatically cope with any 
additional commands. 


The other three commands are concerned 
with printing (and displaying) formatted 
records. Any number of formats can be set 
up for use with a data file. Each format 
(or print form) is a special one-record 
file created with a variation of the 
CREATE command as above. The value of 'n' 
specifies the number of lines that the 
form is to contain (e.g. CREATE forml/5). 
Once the format file has been created, the 
format record is generated by using the 
standard OPEN and ADD commands as for any 
datafile. You will find that the format 
record consists of a 'header' line 
followed by the number of lines specified 
at create time. 


The header line should contain three 
numbers separated by commas, the number of 
forms per page, the width of a form (in 
characters), and the gap or number of 
lines between forms. Each of the form 
lines that follow should contain any, or 
none, of the following elements, in any 
order, separated by commas: 

<n> number of spaces 

@<n> at position n (i.e. tab n) 
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"<text>" string or text literal 

<text> fieldname 
The contents of a line will normally be 
left justified on the form but may be 
right justified or centred by appending /R 
or /C respectively to the end of a format 
line specification. For example, a form 


for printing address labels might be 
specified as: 

Header 8,30,2 

Linel "The Managing Director"/C 

Line2 ADDRESS1 

Line3 @4, ADDRESS2 

Line4 @8 ,ADDRESS3 

Line5 POSTCODE/R 


This would print 8 forms per page consist- 
ing of 5 lines of 3Ø characters, and with 
2 blank lines between forms. 


Of the other two new commands, FORMAT 
is used to select a previously defined 
format, while PRINT will output records 
according to the format selected. As with 
the DISPLAY command, PRINT can be used to 
print all records or a single specified 
record, useful for checking a format for 
correctness. If you haven't a printer 
immediately available enter *FX5,Ø to see 
the effect of the PRINT command. The 
printer output then just disappears into a 
'sink' (see User Guide page 423). 


The additional and amended lines for 
these enhancements are listed below and 
may be added to the original program as 
described for the earlier improvements, 
which are an essential pre-requisite. The 
magazine cassette/disc contains the 
complete program as so far developed. 


Next month we will look in more detail 
at the functions and procedures used to 
implement the FORMAT and PRINT commands. 
We will also add further functions to the 
BEEBUG Filer including a much needed edit 
record facility. For those interested in 


programming there is, following the 
additional lines listed below, a more 
detailed technical description of the 


whole program which explains some of the 
basic ideas and describes how the program 
has been implemented. 


1040 maxf=12:X=0:Y=0: format%=Ø:*FX4,2 
1108 DATA 19 
1168 DATA DELETE, END ,COMMANDS , FORMAT, PR 


1670 IF C=5 THEN PROCdisplay (pm$,Ø) 


1700 IF C=8 THEN PROClistc 
1719 IF C=9 THEN PROCformat (pm$) 
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172Ø IF C=1Ø THEN PROCdisplay (pm$,1) 
2550 I=INSTR(p$,"/"):IF I THEN PROC£] (I 
):GOTO 2820 

3000 DEF PROCf1 (i):LOCAL I 

3920 f=VAL (MIDS (p$,i+1))+1:IF f>maxf TH 
EN PRINT"Too many lines":ENDPROC 

3040 recn=1:pS$=LEFTS (p$, i-1) 

3060 FOR I=1 TO f:field$(I)="Line"+STRS 
(I-1) swidth’ (I) =64:NEXT I 

3080 field$ (1)="Header" : ENDPROC 

3100 : 

3320 FOR I=] TO f:INPUTfF,field$,width% 
(I):fieldS$ (I) =FNstrip(field$,"."):NEXT I 
4800 DEF PROCdisplay (p$, flag) 

4890 IF flag AND NOT format THEN PRINT 
"No format": ENDPROC 

4900 PROCwindowl: IF flag=Ø PROCrecord 
4910 IF flag VDU28,Ø,19,79,4,12,2: form= 
Ø 

496Ø PROCread(I,Ø):IF flag THEN PROCpri 
ntl (I) ELSE PROCdisplay] (I) 

4980 IF I<end AND flag<>1 THEN G=GET 
5ØØØ NEXT I:IF flag VDU12,3 

5020 PROCwindow2: ENDPROC 

6300 DEF PROClistc:LOCAL I 

6328 PROCwindowl :CLS 

6340 FOR I=] TO N:PRINT com$(I):NEXT I 
6369 PROCwindow2:PRINT"Press any key to 
continue"; 

6388 I=GET: PROCheader : PRINT: ENDPROC 
6400 : 

6500 DEF PROCformat (p$) :LOCAL F,I 

652Ø IF p$="" THEN PRINT"No file given" 
: ENDPROC 

6540 F=OPENUP (pS): IF F=Ø THEN PRINT"No 
such file":ENDPROC 

6560 INPUT#F,frec,I,I,ff:IF frec=1 THEN 
PRINT"No format specified": ENDPROC 

6588 PRINT"Loading format ";p$ 

6600 PTR#F=256:FOR I=Ø TO ff-1: INPUT#HF, 
pS: record$ (I,1)=FNstrip(p$,"."):NEXT I 
6628 pS=record$ (G,1)+",":FOR I=Ø TO 2:p 
=INSTR (p$,",") : £p% (I) =VAL (LEFTS (p$,p-1) ) 
: p$=MID$ (p$,p+1) :NEXT I 

6640 CLOSE#F: format%=-1 : ENDPROC 

6660 : 

7000 DEF PROCprint] (n):LOCAL I,p,p$,1S, 
s$ 

7020 FOR I=1 TO ff-1 

7040 1$="":s$="":p$=recordS (I,1):IF p$= 
"" THEN p=Ø:GOTO 7189 

7Ø6Ø p=INSTR(p$,"/"):IF p s$=RIGHT$ (p$, 
1) :pS=LEFTS (p$,p-1) 

7080 pS=pS+","":REPEAT: p=INSTR (p$,",") 
7100 IF ASCp$=34 THEN 1$=1S+MIDS (p$,2,p 
-3) ELSE IF ASCp$>48 AND ASCp$<58 THEN 1 
$=1$+STRINGS (VAL (LEFTS (p$,p-1))," ") ELS 
E IF ASCp$=64 THEN 1$=1$+STRINGS (ABS (VAL 
(MIDS (p$,2,p-1))-LEN1S)," ") ELSE 1$=1$+ 
FNstrip (FNfield (LEFTS (p$,0-1),0),"." 
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7128 pS=MIDS (p$,p+1) : UNTIL pS="" 

7140 1S=LEFTS (1S, fp% (1) ) 

7160 p=fp% (1)-LEN1$:IF s$="C" THEN p=p/ 
2 ELSE IF s$="R" ELSE p=Ø 

7186 PRINT SPCp;1$ 

7200 NEXT I:PROCline(fp% (2) ) : form=form+ 


7220 IF form>=fp% (Ø) VDU12:form=Ø 

7240 ENDPROC 

7266 : 
21200 DEF FNstrip(p$,c$):LOCAL I:I=LENp$ 


21220 REPEAT: I=I-1:UNTIL MIDS (p$,1,1)<>e 


21240 =LEFTS (p$,I) 

21260 : 

21400 DEF PROCline(n) :LOCAL I 

2142Ø IF n>Ø FOR I=1 TO n:PRINT:NEXT I 
21448 ENDPROC 

21460 : 

21600 DEF FNfield(p$,R):LOCAL I:I=Ø 
21620 REPEAT: I=I+1:UNTIL p$=field$(I) OR 


21648 =recordS (1 ,R) 

21660 : 

31910 IF ERR=17 THEN PROCheader:PRINT'"'C 
omand aborted":GOTO 148 


THE FILE STRUCTURE DESCRIBED 

A database file will consist of a 
series of fixed length records, and each 
record will contain a number of fixed 
length fields. Field and record lengths 
need to be fixed in any given data file so 
that they can be accessed using the PTR# 
instruction. We also want our program to 
be able to handle a variety of different 
data files, each with its own field and 
record lengths. 


One solution to this problem is to 
reserve space at the start of any file in 
which to store a description of that file. 
By always keeping the file description in 
the same format, the one program can 
readily handle many different files. 


BEEBUG Filer reserves the first 256 
bytes in any file for the file descrip- 
tion. This is then followed by the records 


File 
Description Record 1 Record 2 Record 3 Record 4 
Record 


Diagram 1 
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themselves as shown in figure 1. The file 
description contains the position of the 
next free record. in the file (or, if you 
like, the number of records in use plus 
1), the maximum number of records that the 
file can hold, the size in bytes of each 
record, the number of fields in each 
record and the name and length of each 
field in turn. The structure of the file 
description record (FDR) is shown in 
figure 2. Field names, the only variable 
length items, are limited to 12 characters 
(14 characters of file space) and the 256 
byte FDR provides enough space for up to 
12 fields, which is therefore the limit 
for any BEEBUG Filer database file. 


You could increase this by allocating, 
say, 512 bytes for the FDR but there are 
other limitations too. The area of the 
screen used to display a record has a 
maximum of 17 lines available. This would 
be the maximum number of fields that could 
be displayed together. If you want to 
change this or experiment, then you will 
need to alter the value of 'maxf' in line 
1940 to whatever limit you wish to set, 
and change 256 to 512 (or whatever) 
where referenced with PTR#. 


COMMAND MECHANISM 

BEEBUG Filer is command-driven, with 
the number of commands and the commands 
themselves read from DATA statements in 
PROCsetup at lines 1989 to 1168. These are 
read into an array for subsequent use. 
This makes the addition of further 
commands very easy, as described earlier. 


The program operates a 
repeatedly calling the 
procedure (PROCcommand). This procedure, 
at lines 1500 to 1888, inputs the next 
command from the keyboard, checks its 


simple loop, 
main command 


validity, and depending upon the command 
entered, calls one of several key 
procedures. 


KEY PROCEDURES AND UTILITY PROCEDURES 
The key procedures implemented in the 


©] teas) 
Number | Fed 
x o | name | wan | name | wam byes 
wos | i 2 2 tre 
5 6 s 6 u 5 w s 


ap | naan | mana | 
Fed a | Fed | 


Upto 12 teks names & wams 


Diagram 2 
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basic program are as follows: 
PROCcreate - create a new datafile 
PROCopen - open a datafile for use 
PROCadd - add a record to the file 
PROCdisplay - display one or more 
records on the screen 
PROCdelete - delete a specified record 
PROCclose - close a data file 
These key procedures are listed from line 
2500 upwards and include a number of 
supporting procedures and functions. All 
the key procedures contain a number of 
checks, displaying appropriate error 
messages as needed. 


There are also several general utility 
functions and these are listed from line 
20000 upwards: 

FNask - seek a Y/N answer 

PROCheader - display main header 

PROCwindowl - set record display area 

PROCwindow2 - set command display area 

PROCinv - toggle inverse video effect 


GLOBAL VARIABLES 


A number of variables are used 
throughout the program and these are 
listed below. All variables that are 
logically local to any procedure or 


function are declared as LOCAL to avoid 
any unforeseen clashes. 


Global Function 
rec Next free record 
recn Maximum number of records 
recs Size of a record in bytes 
Ë Number of fields 
field$() ` Fieldnames 
width%() —Fieldwidths 
record$() Contents of fields for any 
record 
coms () List of commands 
maxf Maximum number of fields 
open% Flags if a datafile open 
F Datafile channel number 
F$ Current datafile name 
exits Flags if exit from program 
N Number of commands in use 
e Number of current command 
X Used to record the position 
på of the cursor in window 2 
L Set to indicate single or 
double line spacing depend- 
ing on number of fields 
delete% Flags if any record 


logically deleted 


More technical information will appear 
next month covering the later additions. 
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Acorn now provides upgrades 
that allow all BBC model B 
micros to be upgraded with the 
1770 disc controller, used in the 
B+, and with Acorn's Advanced 
Disc Filing System (ADFS). Is 
the cost and effort worthwhile? 
Peter Rochford reports. 


Acorn 1770 Disc Interface price £49.95 
Acorn ADFS Upgrade price £29.95 


Acorn Computers Ltd, Cambridge Technopark, 
645 Newmarket Road, 
Cambridge CB5 8PD. 0223-214411. 


THE ACORN 1770 FLOPPY DISC CONTROLLER 

The recently introduced BBC Bt is 
supplied with a disc interface already 
fitted which utilises the Western Digital 
1778 FDC (Floppy Disc Controller). This 
chip has the advantage of being relatively 
cheap and enables the use of both single 
and double density formats. 


This interface is now available from 
Acorn for the Model B, and much cheaper 
than the older 8271 FDC, but still re- 
taining compatibility with the Acorn DFS. 


The kit consists of a small PCB about 
2.5 inches square, on which is mounted the 
1776 FDC and several support chips. 
Supplied with this are two chips, two wire 
links, a 16K DFS ROM, fitting instructions 
and the Acorn Disc User Guide with extra 
information on the use of the 177Ø DFS. 
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Fitting the kit involves plugging the 


PCB into the 8271 (IC78) socket by means 
of two rows of pins on the top of the 
board. The two chips supplied are then 


plugged into their appropriate sockets and 
the two small links plugged into two other 
IC sockets. The 1778 DFS ROM must also be 
installed in a vacant paged ROM socket. 


The whole process is quite 
straightforward thanks to Acorn's 
excellent documentation, but I did find 
that the PCB required a fair amount of 


force to make it secure and was very close 
to the speech chip sockets when fitted. 
Acorn tell me that they may include an 
extra 48 pin DIL socket with future 
releases of the kit to raise the board up 
to provide more clearance. If you have an 
ATPL ROM board, by the way, the kit can be 
fitted without any problems. 


Those who have the 8271 disc interface 
fitted can achieve installation of the kit 
in much the same way after the removal of 
the 8271 FDC from socket IC78. However, if 
IC78 is soldered in, as in some Beebs, the 
job would be best left to a dealer unless 
you are deft with a soldering iron and 
solder sucker. Issue 2 & 3 boards, fitted 
with an interface for the first time, need 
a further modification to the main PCB. 


The operation of the 1770 DFS is 
identical to the DES 1.2 used with the 
8271 FDC with the exception of the *DRIVE 
command which allows the reading of 40 
track discs by an 80 track drive. There 
are also some additional commands however, 
which are shown below: 


*CLOSE Closes all sequential files. 

*EX Display info about the specified 
directory. 

*FORM Format a disc. 

*FREE Display bytes free and files free. 

*MAP Display map of disc free space. 

*ROMS Lists paged ROMS and their type. 


*VERIFY Verify sectors of a disc. 


The only problem you may possibly 
encounter with the 1770 DFS is that of 
protected commercial discs which write to 
the 8271 FDC direct. Acorn have provided 
several types of 8271 emulation in the 
1778 DFS to cope with this but give no 
guarantees that all protected software 
will be readable. 


For those who don't already have a 
interface the new kit will be most 
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disc 


welcome being half the price of the old 
8271 interface. It still has all the 
drawbacks of the DFS, and of course one 
must bear in mind the question of pro- 
tected discs. As far as I can see, there 
is little gain for existing 8271 owners 
changing to the 1770 FDC, except that they 
will need it fitted if they want to use 
Acorn's other new release for the Beeb. 


THE ADFS UPGRADE 

The Advanced Disc Filing System has 
been around for some time and is used on 
the Electron Plus 3 and with the Acorn 
Winchester. It is now available to Model B 
owners with the 1770 interface fitted, and 
of course B+ owners. 


For your £29 you get the 16K ADFS ROM, 
fitting instructions, a user guide and 
utilities disc. Fitting just requires 
putting the ADFS ROM into one of the paged 
ROM sockets with a priority to suit 
whether you require it as the default DFS 
on power-up. 


It can be used with the 1770 DFS still 
in the computer and you can move from one 
to the other when required. However, there 
are certain problems with this arrangement 
which I will come to later. 


I should mention before going any 
further, that this review of the ADFS was 
written without the use of the manual or 


utilities disc which were both not ready 
at the time of writing. I did, however, 
get hold of the ADT (Advanced Disc 
Toolkit) ROM from Advanced Computer 
Products (reviewed BEEBUG Vol.4 No.6) 
which has versions of the main ADFS disc 
utilities on it. The Only reference 


ed DFS 1,38 
invoke ADFS from either pitia systen 
Allocates object attr 
Goes back to previously. se ected directory 
es R/M heads to shipping zone (Acorn Winchester) 
Catalogue CSD or maned raters 
Create neu director: ory 
ee files 


fots tiles fron m directory to another 
Delete naned ob 

Delete a der pg objects 

Select directory 

Ensures data on the current drive 


Display information on CSD or named diretory 
Invoke ADES without accessing the disc 
Display disc free space 
Display information. about a dist Fl objects 
Display the current sires ot talogue 
belgie about the current library 
any to specified directory 

ispl disc free space 
Ini ja i "ein 

move ob est but no error if not found 
Renane a 


E o jeg 
Set the title of the CSD 
Fig.l 
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available to me was the Acorn Winchester 
manual which gives all the ADFS commands. 
A list of these is shown in Fig.l. 


In contrast to the standard Acorn DFS, 
the ADFS is double density with sixteen 
sectors per track. This means an increase 
of 60% in storage but makes the term 
'double' density not quite appropriate! If 
you are using a double-sided 80 track disc 
you will now have 648K as opposed to 480K 
with single density. 


The limitation of a fixed number of 
filenames does not occur with the ADFS. It 
has what is known as a hierarchical filing 
structure, much the same as that of MS DOS 
used on many business micros. 


Games Catalogue 1 (47) 

Drives oe 90 (OFF) 
Dir. GAMES Ål 

Mndroid WE (18) ` Arcadians WR (11) Blagger? 

Darts 

Football 

Frogger 

Meteors? 

Monraid Vik (20) 
Pacman 

Planetoid NE (00) 
Plutoniun2 WR (47) 


acnan? 
Planetoid? IR (10) 
Reversi á (29) i Sally Må (43) 


Snapper — V (82) 


Snapper? W (04) 
VA (41) Snooker? MR (42) Suu ) 


When an ADFS disc is formatted, a root 
directory $ is created. This directory may 
contain up to 47 objects which can be 
files or directories. Each directory that 
you create in the root directory can hold 
47 objects and again they may be files, or 
directories. You can carry on nesting 
directories inside one another to a depth 
of 127, but there is one snag with this. 
Getting too carried away can make the 
whole tree of files and directories rather 
unwieldy and complicated. The example in 
Fig.2 shows the catalogue of a directory 
with 46 files and one directory, which is 
named in upper case. 


Filenames and directories in the 
may be up to 1Ø characters in length. 
Directories are indentified with an R 
alongside when created and may be given a 


ADFS 


title of up to 19 characters. This is 
shown when the disc is catalogued with 
that directory as the CSD (Currently 


Selected Directory). 
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To make things clearer as regards the 
organisation of an ADFS disc, look at 
Fig.3. All the objects in upper case are 
directories and the others are files. To 
load the file Memol for example with the 


CSD as $ would require a file 'pathname' 
LOAD "LETTERS .BIZLETS .Memol ". This is 
rather cumbersome of course, but if you 


make the CSD 'LETTERS', you will only have 
to type LOAD"BIZLETS.Memol". Taking it a 
stage further, if you now make 'BIZLETS' 
the CSD you will only have to type 
LOAD"Memol ". Fortunately, the ADFS allows 
the extensive use of wildcards so you can 


substitute for the first example 
LOAD"L*,B*.Memol". 
Looking at the list of commands in 


Fig.l, you will notice some of them are 
identical to those used with the DFS. 
There is the absence though of a *DRIVE 
command. This is because in the ADFS you 
use the *MOUNT command to select the 
current drive. With twin drives, there are 
only two drive numbers, Ø and 1. If the 
drive is double-sided both sides of the 
drive are configured as one contiguous 
surface which can be a distinct advantage, 
particularly for database work. 


Some of the commands in the ADFS, 
although the same as the DFS, operate in a 


(Root directory) 
Program 1 Suð LETTERS personal 


| Memonew Memo 1 || Memo 2 i} 


FIG.3 The filing system structure 


different way. There are also some obvious 
omissions such as *BUILD, *WIPE, *LIST, 
*TYPE, *DUMP and *BACKUP. The bad news is 
that these have to be loaded from a utili- 
ties disc. The formatter and verifier are 
also on this disc, as are several other 
programs, one of which is for transferring 
DFS files to ADFS and vice versa. 


This brings me on to a disadvantage of 
the ADFS that will cause most concern. 
PAGE with the ADFS is moved up by IK 
bringing it to &1DØØ. Unlike the DFS where 
you could lower page to &11ØØ if you did 
not have any files open, the ADFS will not 
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allow this. In effect, you have actually 
lost access to 3K of usable memory. A 
further complication arises if you have 
the 177Ø DFS in the computer as well as 
the ADFS. PAGE then goes up to &1FØØ! 


Many of these problems can be overcome 
with the ADT ROM that I used for this 
review. This has versions of many of the 
ADFS utilities instantly available. 


CONCLUS ION 


The ADFS is certainly a very powerful 
filing system and has many advantages over 
the DFS. It is fast, provides a greater 
amount of disc storage, allows two 
surfaces of a drive to be configured as 
one and has a structured method of storing 
and retrieving an unlimited number of 
files. The ability to have meaningful file 
and directory names along with the use of 
wildcards for many of the filing 
operations, helps to make it a lot more 
user friendly. 


Unfortunately, there are some serious 
disadvantages, which I have outlined in 
the course of this review. Personally, I 
found the ADFS very difficult to get used 
to at first and I have a suspicion that 
others will too. With perseverance 
however, I have reached the stage where 
there is no way I would go back to the 
DFS. But...I would not contemplate or 
advise using the ADFS without the use of a 
ROM such as the ADT, nor without the use 
of a second processor, sideways RAM or a 
shadow RAM board. You will need at least 
one of the extra RAM options to help you 
get over the memory problem, 


Reduced memory will be your biggest 
headache with the ADFS and mean a great 
deal of your existing software will need 
modification to work. Some will not work 
at all, particularly those that are memory 
tight and need to access the filing 
system. For these you will have to revert 
back to using the DFS. Don't forget too, 
that View and Wordwise will have 1K less 
memory available, particularly important 
in View if working in 8Ø column mode. 


You will have to weigh up very 
carefully the pros and cons of the ADFS 
from your own personal point of view 


before committing yourself to it asa 
filing system. Even if you decide against 
for now, it is clearly the direction in 
which Acorn are moving. e] 
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This program provides you with a 
computerized desk diary, with quick 
access, plenty of space to record 
information, and a variety of routines to 
ensure important dates are not forgotten. 
As it relies on random access, it is only 
suitable for disc users. 


Before the program can be used, two 
dummy data files should be set up using 
the short program, listed on page 23. 
Running the main program prompts the user 
to enter the year (1984-9999 only). It 
will then automatically load the index 
file and display the main menu. All 
options but 'Browse' lead to a prompt 
asking if you want printout. 


o +I Laxey 


Initially your diary will be blank, 
and you will need to use option 1 to make 
some entries. Enter the date as prompted 
and the record is loaded. Press 'C' to 
change the entry, and enter your data. 


All the options use the same record 
display routine, and within this routine 
you can change, index, or print the 
record, or press the space bar to 
continue. There is also one hidden 
facility - pressing M followed by the 
space bar will take you back to the Menu. 


The index option is very important. 
The index file stores a record of the 
entries memorable for some reason. To 
index an entry, press I and the index keys 
required. Similarly, to delete a record, 
you will need to use the index routine to 
cancel the index record for that day. 


There are three index categories: 
birthdays, school dates, and dates to 
remember. Not everyone has children at 
school, and so some users will want to 
rename this category. To do this, alter 
the PRINT statements in lines 1250, 1730, 
and 2758. You may also wish to change the 
letter pressed from S to another. In this 
case the INKEY statement in line 2799 
would need to be changed too. The other 
two categories could also be changed in a 
similar way by altering the same areas. 


Having used option 1 to make a few 
entries, and the index routine to specify 
different types of dates, you can then 
experiment with the other options. They 
are all self-explanatory and easy to use. 


The sixth option, to browse, differs 
from the other five in that you can browse 
through the diary in either direction, 
starting from a specified date. To change 
the direction of browsing just press R 
while the current page is being displayed 
followed by the space bar. 


SETTING UP THE DATA FILES 

In addition to the main program, the 
short set-up program on page 23 is also 
required to create the diary and index 
data files on disc (X.DIARY and X.INDEX). 
These are 9@K and 1.5K, respectively, so 
readers with 40 track discs may have to 
use a separate disc for these files. 


USING A PRINTER 


without 


Beebug December 1985 
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printers may need to modify line 3230, 
This reduces line spacing to 32/216 inch, 
sets the left margin to 6, and the line 
width to 68 characters. 


PROGRAM NOTES 

Options 5 and 6 are very similar, and 
so the same control procedure, PROCprd, 
has been used for both, the differences 
being controlled by the value of C%. 


The date is calculated with a base of 
1984 because this is a leap year, and it 
conveniently starts on a Sunday, the first 
day of the diary week. The date entered is 
used to calculate Y% equivalent to the 
first day of the given year. L% is used as 
a flag to indicate a leap year. 


Records are held on disc in date 
order, and 29th February is there as 
record number 68 whether it is a leap year 
or not. It is possible to use the same 
file for any year, but the date of entry 
is always recorded as the last 18 
characters of the record, so there should 
be no danger of your turning up ata 
meeting a year early or late! 


For brevity and simplicity the index 
file is composed of single integers made 
up from the sum of appropriate powers of 
2. 8 indicates that a record exists, 1 
that it is a birthday, 2 for a school 
date, and 4 for a special date. 


The display format procedure is based 
on the PROCbox utility from BEEBUG Vol.2 
No.8. The entry routine is based on the 
BEEBUG Workshop of Vol.3 No.1. 


1Ø REM PROGRAM DIARY 

28 REM VERSION BØ.5 

3Ø REM AUTHOR C.WRAGG 

40 REM BEEBUG DEC 1985 

5Ø REM PROGRAM SUBJECT TO COPYRIGHT 

60 : 

199 MODE7 

11Ø ONERROR VDU3,7:MODE7: REPORT: PRINT" 
at line ";ERL:CLOSE#9:END 

120 DIM Index% (366) ,Day$ (6) 

13Ø RS=STRINGS (248," ") :RIS=STRINGS (24 
8," vy 

14Ø FORX%=ØTO6: READDayS (X%) : NEXT 

15Ø DATA Sunday,Monday, Tuesday ,Wednesd 
ay,Thursday,Friday,Saturday 

16Ø PROCtitle 

176 PROCopenfile:PROCprinter 

18Ø REPEAT 
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19Ø PROCmenu 
2ØØ UNTIL Z%=Ø 
21Ø PROCend 
220 : 

1098 DEFPROCtitle 

1918 PROCbox (2,9,1,4,21) 

1020 FORX%=1TO2: PRINTTAB (Ø ,X%+1)CHRS141 
; TAB (13,X%+1) ;CHR$131;CHR$157;CHR$132;" 
DIARY  ";CHRS156;:NEXT 

1030 PRINTTAB (2,8)CHRS$130;"Enter year ( 
not earlier than 1984)"' 

1048 PRINTTAB (16)CHRS$130; : INPUT""Year3% 

1058 IF Year%<1984 OR Year%>9999 CLS:GO 
TO1Ø2Ø 

1960 IF Year%= (INT (Year%/4))*4 L%=1 ELS 
E L3=Ø 

1970 Y%=Year%-1984 

1080 F%=Y%/4:Y%= (Y3+F3- (1<>L3) )MOD7 


% 48 
GS (2 
„STRIN 


=x 
pTRÄX 
ag PRINTEX 


nk") 


1Ø9Ø PRINTTAB(6,18)CHRS$131; "New Year's 
Day: ";DayS (Y%) 

1108 vDU23,1,0;0;0;0; 

111@ ENDPROC 

1126 : 

1138 DEFPROCopenfile 

1140 I=OPENUP "X, INDEX" 

1158 FORX%=1T0366: INPUT#I , Index% (X%) : NE 
XT 

116@ F=OPENUP"X.DIARY" 

1170 ENDPROC 

1188 : 

1198 DEFPROCmenu 

1200 CLS:P3=0:VDU23,1,0;0;0;0; 

1218 PROCbox (4,1,6,18,38) : PROCbox (4,1,1 
75738) 

1220 PRINTTAB (11,3)CHR$134; "DIARY OPT 
IONS"; 


23 


SE Se RS TTR APR o a ERA SEEREN 


1238 
given 
1240 


PRINTTAB (3,8)CHR$134;"] Select a 
date" 
PRINTTAB (3,1Ø)CHRS134; "2 Select a 


11 birthdays" 


1258 


PRINTTAB (3,12)CHRS134;"3 Select a 


11 school dates" 


1268 


PRINTTAB (3,14)CHR$134;"4 Select d 


ates to be remembered" 


1276 


PRINTTAB (3,16)CHR$134;"5 Entries 


over a given period" 


1280 
1299 


PRINTTAB (3,18)CHR$134;"6 Browse" 
PRINTTAB (3,21)CHR$129;"G Finish w 


ith diary" 


13ØØ 

131Ø 
35Ø 

132Ø 


Z%=GET-48:IF Z%<Ø OR Z%>6 GOTO13ØØ 
IFZ%=Ø THEN143Ø ELSE IF Z%=6 THEN] 


PRINTTAB (2,6+2*Z%)CHRS1 36; TAB (5,6+ 


2*7%)CHR$137; 


1338 


PRINTTAB (3, 21)CHRS129;CHRS$1 36; "IS 


PRINTOUT REQUIRED ?";CHR$137; 


1340 
1359 
1369 

,141Ø 
137Ø 
138Ø 
1390 
1490 
1418 
1429 
1430 
1440 
1450 
1469 
1470 


r 
148Ø 


Z$=GETS: IFZ$="Y "ORZS="y" PS=1 
VDU23,1,255;0;0;0; 
ON Z% GOTO1370,1380,1390,1400,1410 


PROCday : GOTO1 208 
PROCbday : GOTO1 208 
PROCsday:GOTO1 200 
PROCxday : GOTO1 280 
IFZ3=5 C%=ø ELSE C%=1 
PROCprd:C%=9: GOTO 200 
ENDPROC 


DEFPROCday 
PROCscreen (2) 
PRINTTAB (2,3)CHR$134; "SELECTED DAY 


PRINTTAB (2,8)CHR$1 30; "Enter";CHRS1 


29; "NUMERICALLY: " 


1496 


PRINTTAB (5, 10)CHR$130; "DAY = 


INPUT""D% 


15ØØ 


PRINTTAB (5,12)CHR$130; "MONTH = ";: 


INPUT""M% 


151Ø 
1526 
1538 
1546 
1559 
T 
156Ø 
157Ø 
158Ø 
";D%; 
159Ø 
16ØØ 
,30,31 
161Ø 
1629 
1638 
1646 
1659 
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PROCcheck (D%,M3) : IF F%=1 GOTO146Ø 
RESTORE] 600 

IFM$=1 THEN T%=D%:GOTO1576 

T%=Ø 

FORX3%=1TOM3%=1: READ N%:T%=T%+N%:NEX 


T3=T%+D% 

Day%= (Y3+T%+6- (L3=Ø) * (M3>2) ) MOD7 
PRINTTAB (16,3)CHR$131;DayS (Day3) ; " 
We mere ts Years 

PROC load (TS) 

DATA 31,29,31,30,31,30,31,31,30,31 


ENDPROC 


DEFPROCbday 
PROCscreen(1) 
PRINTTAB (2,3)CHR$130; "BIRTHDAY: "; 


166Ø FORX%=1T70366 

1670 IFIndex% (X%) <>INT (Index% (X%) /2) *2 
PROCdate: PROCload (X%) 

1680 NEXT 

169Ø ENDPROC 

1700 : 

171Ø DEFPROCsday 

172Ø PROCscreen (6) 

173Ø PRINTTAB (2,3)CHR$133; "SCHOOL DATES 

r 

1740 FORX%=1T0366 

175Ø IF (Index% (X%) >9ANDI ndex% (X%) <12) OR 
(Index% (X%)>13) PROCdate: PROCload (X%) 

1768 NEXT 

1778 ENDPROC 

1780 : 

1790 DEFPROCxday 

1888 PROCscreen (5) 

1819 PRINTTAB (2,3)CHR$129; "SPECIAL DATE 
tts 

1828 FORX%=1T0366 

1839 IFIndex% (X%)>11 PROCdate: PROC Load ( 
X3) 

1840 NEXT 

1858 ENDPROC 

1860 : 

1878 DEFPROCprd 

1889 PROCscreen (3) 

1890 IF C3=Ø PRINTTAB (3,3)CHR$131; "PERI 
OD FROM"; ELSE PRINTTAB (3,3)CHRS131; "BRO 
WSING MODE = R : reverse";TAB(19,4)CHRS1 
31;"M : exit to Menu"; 

19ØØ MM$= 

191Ø PRINTTAB (3,8)CHR$131; "Enter ";CHRS$1 
29; "NUMERICALLY:" 

1929 PRINTTAB (5,1Ø)CHRS$1 31; : INPUT "FIRST 

day: "D% 

193Ø PRINTTAB (5,11 )CHRS1 31; : INPUT "Month 
6 "MS 

1948 PROCcheck (D%,M%) :IF F3=1 GOTO188Ø 

1958 IF C%=1 GOTO199Ø 


1969 PRINTTAB (5,13)CHRS134; : INPUT"LAST j 
day: "ES 

1976 PRINTTAB (5,14)CHR$134; : INPUT "Month 

E "0% 

1989 PROCcheck (E%,0%) :IF F%=1 PRINTTAB ( ` 


5,13)STRINGS (14," "); TAB (5,14) STRINGS (14 
," ");TAB(1Ø,16) STRINGS (14," ") :GOTO1960 

1990 RESTORE] 600 

2000 IFM%=1 THEN TS=D%:GOTO2040 

2010 T3=Ø 

2020 FORX%=1|TOM%-1|:READ N%:T%=T%+N%:NEX 
T 

2030 T3=T%+D% 

2040 Day%=(Y%+T%+6- (L%=Ø) * (M3>2) ) MOD7 

2050 IFCS=1 S%=366:GOTO2148 

2060 PRINTTAB (16,3)CHR$131 ;Day$ (Day) ; " 

TID Ve Mn Years 

2Ø7Ø RESTORE16ØØ 

2080 IFO%=1 THEN S%=E%:GOTO2120 
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SEES EE r Soe 


2090 S3=Ø 

2100 FORX%=1TOO%-1:READ N%:S%=5%+N%:NEX 
T 

2110 S%=S3+E% 

2120 Day2%= (Y%+5%+6- (L3=Ø) * (0%>2) ) MOD7 
213Ø PRINTTAB (9,4)CHR$131; "TO ";Day 
$(Day2%);" "M,ES3;":";03;":"ivear% 
2140 O%=1:X%=T3 

215Ø REPEAT 

2160 IFIndex% (X%)<>Ø last%=X%:Day%= 
X%+6- (L3=Ø) * (M%>2) ) MOD7: PROCload (X%) 
217Ø X%=X%+Q% 

218Ø UNTIL X%<1 OR X%>S% OR MM3=1 
219Ø IF MM%=Ø AND C%=1 THEN VDU7:PRINTT 
AB (10,7) "FINAL ENTRY - R FOR REVERSE";:P 
ROCpause (50) :X%=last%:GOTO 215Ø 

2200 ENDPROC 

2218 : 

2220 DEFPROCload (t3) 

2230 VDU28,3,16,36,7,23;11,0;0;0; B:CLS 
2240 PTR#F= (t3%-1) *25Ø 

2250 INPUT#F,RS 

226Ø PRINTTAB (Ø,2)R$; TAB (20,9)DayS (Day 


(YS+ 


2270 IFP%=1 PROCprint 

2280 VDU28,2,22,36,19,12 

2290 PRINTTAB (3,Ø)CHRS$131; "Press"; SPC4; 
"CW:SPC5; "to change"'TAB (12)CHR$131; "I"; 
SPC5; "to index"'TAB (12)CHR$131; "P";SPC5; 
"tø print""TAB(12)CHRS134; "SPACE ";CHR$13 
1; "to continue" 

2300 VDU28,3,16,36,7 

2310 REPEAT 

2320 IF INKEY-83 VDU23;11,255;0;0;0:PRO 
Cchange (t%) :VDU23,1,0;0;0;0; 

2330 IF INKEY-56 PROCprint 

2340 IF INKEY-38 PROCindex (t%) 

2350 IF INKEY-52 AND C%=1 Q%=-0%:PRINTT 
AB (20,1) "REVERSE"; : PROCpause (20) 

2360 IF INKEY-1Ø2 MM%=1:PRINTTAB (20,1)" 
EXIT to MENU"; 

2370 UNTIL INKEY-99 

2380 VDU26 

2398 ENDPROC 

2400 : 

2419 DEFPROCdate 

2420 RESTORE] 680 :M%=1 :D3=X% 

2430 READN% 

2440 IFD%<=N% GOTO2506 

2450 REPEAT 

2460 M3=M%+1:D%=D%-N% 

2470 READN% 

2480 UNTILD%<=N% 

2490 IFZ%>4 THEN253Ø 

2500 VDU26:PRINTTAB (16,3)STRINGS (2Ø," " 
); 

2510 Day%= (Y$+X%+6- (L3=Ø) * (M3>2) ) MOD7 
2520 PRINTTAB(16,3)CHR$131;DayS (Day3) ; " 
VM, Vear; 

253Ø ENDPROC 
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DIARY OPTIONS 


Select a given date 

Select all birthdays 

Select all school dates 
Select dates to be remembered 


Entries over a given period 


Browse 


2540 : 

2550 DEFPROCchange (t%) 

2568 PROCpause (20) 

2570 *FX15,1 

2580 VDU3Ø:PRINT"Enter new details:" 

2590 RS$=FNin(Ø,1,238) 

2600 VDU23;11,Ø;Ø;Ø;Ø; : PRINTTAB (Ø , Ø) CHR 
$129 ;CHRS136; "CORRECT?"; SPC7;CHR$137:Z$= 
GETS:CLS: IFZS<>"Y"ANDZS<>"y" PRINTTAB (Ø, 
2) R$:GOT0258Ø 

2610 IFLEN (R$) <238 RS=R$+" ":GOTO261Ø 

2620 RefS=STRS (D%) +". "+STRS (M3) +". "+STR 
$ (Year?) 

2630 R$=R$+Ref$ 

264Ø IFLEN (R$)<248 R$=R$+" ":G0T0264Ø 

2650 PTR$F=(t$-1) *250: PRINT#F,RS 

2660 PTRHI=(t%-1)*5 

2670 Index% (t%)=8 

2680 PRINTHI, Index’ (t%) 

2690 PRINTTAB (Ø,2)R$; TAB (20,9) Day$ (Day% 


2700 ENDPROC 

2718 : 

2720 DEFPROCindex (t%) 

2730 VDU28,2,22,36,19,12 

2740 Index% (t%)=8:B%=0:R$=0:W$%=0 

2758 PRINTCHR$130; "Press"'CHR$134;" B"; 
CHRS130; "= Birthday"; SPC6; "";CHR$1 34; "S" 
;CHR$13Ø; "= School "'CHR$134;" X";CHR$13 
Ø; "= Special date ";CHR$134; "C";CHR$13Ø 
;"= Cancel "'TAB (6)CHR$134; "<RETURN>";CH 
R$13Ø; "to continue"; 

276Ø *FX15,1 

277Ø REPEAT 

278Ø IF INKEY-191 AND B%=Ø Index? (t%)=I 
ndex% (t%) +1 :B3=1 : PRINTTAB (1,1) CHR$136;TA 
B(18,1)CHR$137; 

2790 IF INKEY-82 AND R3=Ø Index% (t%)=In 
dex’ (t%)+2:R$=1:PRINTTAB (18,1)CHR$136; TA 
B(31,1)CHR$137; 

2800 IF INKEY-67 AND W%=Ø Index%(t%)=In 
dex (t%) +4:W%=1: PRINTTAB (1,2)CHR$136; TAB 
(18,2)CHRS137; 


25 


's Birthday 
of drink 


7.8.1985 


Press 


c 
I 
P 
Si 


t 
PACE to 


2810 IFINKEY-83 Index% (t%)=@:MM%=1 : PRIN 
TTAB (19,2)CHR$136;" CANCELLED";CHRS137; : 
PROCpause (120) 

2820 UNTIL INKEY-74 OR Index% (t%)= 

2830 PTRHI=(t%-1)*5:PRINTHI, Index% 

2840 *FX15,1 

285Ø CLS 

2860 PRINTTAB (3,Ø)CHRS131; "Press";SPC4; 
"C";SPC5;"to change" "TAB (12)CHR$131; "I"; 
SPC5; "to index" 'TAB(12)CHR$131; "P";SPC5; 
"to print"' TAB (12)CHRS134; "SPACE";CHRS13 
1;"to continue"; 

2878 VDU28,3,16,36,7 

2888 ENDPROC 

2890 : 

2900 DEFPROCcheck (d%,m%) 

2910 F3=Ø 

2920 IFd%<1 OR d%>31 OR m%<1 OR m$>12 F 
$=1:GOTO2979 

2930 IFd%<29 GOTO298Ø 

2940 IFm%=2 AND d%=29 AND L%=Ø F%=1:GOT 
0297Ø 

2950 IFm%=2 AND d%>29 F%=1|:G0T0297Ø 

2960 IFd%=31 AND (m%=4 OR m%=6 OR m$=9 
OR m$=11) F$=1 

2970 IF F%=1 PRINTTAB (10,16)CHR$133; "NO 

SUCH DAY!!":PROCpause (100) 

2980 ENDPROC 

2999 : 

3000 DEFFNin(U%,V%,W%) 

3010 BS=0:R1S="": PRINTTAB (U%,V%) ; 

3020 K%=GET 

3030 IF K%=13 =RIS 

3040 IF K%=127 PROCdel:K3=Ø 

3050 IF K%<32 K%=0 

3060 IF K% PROCadd 

3878 GOTO03Ø2Ø 

3080 : 

3898 DEFPROCdel:IFB%=Ø VDU7:ENDPROC 

3100 BS=B%-1:R1S=LEFTS (R1$,B%) : VDU8,ASC 
" 1,8: ENDPROC 

311Ø : 
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Ø 
(t3) 


312Ø DEFPROCadd 
313Ø IFB%=W% VDU7:ENDPROC 
3140 BS=BS+1 :R1S=R1$+CHRSK%: VDUK3: ENDPR 


3158 : 
3168 DEFPROCscreen (73) 
3178 CLS:PROCbox (z%,1,18,6,38) : PROCbox ( 
z%,1,6,12,38) : PROCbox (z%,1,1,5,38) 

3189 ENDPROC 
3198 : 

3200 DEFPROCpr inter 

3210 REM Setup for Epson RX8Ø 

3220 REM Margins set for width of 68 ch 
aracters 

3239 vpU2,1,27,1/51,1,32;1,27,1,7198,1,6 
sla 81117473 

324Ø ENDPROC 

3250 : 

3269 DEFPROCprint 

3270 *FX3,1Ø 

3280 VDU2,10,10,13 

3290 PRINTDayS (Day%);" ";RIGHTS(RS,1Ø) 
' 


33ØØ PRINTLEFTS (RS, 238) 

331Ø VDU3 

3320 *FX3,Ø 

333Ø ENDPROC 

3340 : 

335Ø DEFPROCpause (t3) 

3360 T=TIME:REPEAT UNTIL TIME>T+t% 

337Ø ENDPROC 

3380 : 

339Ø DEFPROCend 

34ØØ CLOSE#F 

341Ø CLOSE#I 

342Ø VDU2,1,27,1,64,3 

343Ø CLS 

3440 VDU23,1,255,0;0;0;0; 

3450 END 

3460 : 

3470 DEFPROCbox (c3%,x%,y%,h%,w%) 

348Ø LOCAL c$,i%,y1% 

349Ø y1%=y%+h3-1 

3500 FORi3=y3%TOy13% 

351Ø PRINTTAB (x%-1,1%);CHRS (145+c3); 
3520 IFi%=y% PRINT CHR$183; ELSE IFi%=y 
1% PRINT CHR$245; ELSE PRINT CHRS181;CHR 
$130; 
3530 IFi%=y% PRINT STRINGS (w%-2,CHR$163 
); 
3540 IFi%=y1% PRINT STRINGS (w%-2,CHRS24 
Ø); 

3550 IF i%=y% c$=CHRS235 ELSE IF i%=y1% 
C$=CHR$25Ø ELSE cS=CHRS$234 

3560 IF i%»>y% AND i%<y1% PRINTTAB (x3+w% 
-2,1%3) ;CHRS (145+c%); 

3570 PRINTTAB (x%+w%-1,i%);c$S; 

3580 NEXT 

3590 ENDPROC 


te! 
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SILKS 


Sure Save Utility 


If you have ever cursed the time 
you inadvertently lost a 
program, by saving another with 
the same name, then Alan 
Webster's latest disc utility may 
be a lifesaver. 


This short but useful routine for disc 
users will cure the well-known headache, 
that of losing a valuable file by 
accidentally saving a new file with the 
same name over the top of it. 


sure save routine is 
in your machine, and you save a 
file to disc (using SAVE or *SAVE) that 
has the same name as one already present, 
you will be asked the question 'Replace 
old file (Y/N)'. In response to the 
question you can reply 'Y' to over write 
the old file, or 'N' to abandon the save 
(this utility is similar to the one found 
in Wordwise Plus). The routine accepts 
only 'Y' or 'N' in response, but these can 
be in upper or lower case. 


Once the 
installed 


Type the program in, save it away 
(making sure that you don't use a filename 
already present on the disc!), and run it. 
The program will assemble the machine code 
and print a line of text at the end. To 
save the machine code just copy this 
statement and press Return at the end. 


To use the routine at any time, simply 
type *SURE <return> to load from disc and 
run. The routine will then remain active 
until the Break key is pressed. To restart 
the routine after Break has been pressed, 
just type CALL &9ØØ <return>. 


PROGRAM NOTES 
Lines 13Ø-17Ø 
Line 210 

Lines 220-230 
Lines 249-260 


Re-direct FILEV vector 
Test for ‘save’ 

Address of filename 

Read catalogue information 
for file 


Line 270 File not present. Save it 

Lines 280-299 Print 'Replace' message 

Line 300 Beep and wait for input 

Line 310 Test for escape and change 
to upper case 

Line 326 TESE for "Y' or "Ni" 
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Line 340 
Line 35Ø 
Line 370-380 


Execute command 
Escape error message 
Don't execute command 


REM PROGRAM SURE SAVE 

REM VERSION BØ.4 

REM AUTHOR Alan Webster 

REM BEEBUG DECEMBER 85 

REM PROGRAM SUBJECT TO COPYRIGHT 


MODE 3 

FOR PASS=Ø TO 3 STEP 3 
P%=&9ØØ: [OPT PASS 

«Start 
LDA&212:STA&7Ø:LDA&213:STA&71 
LDA#filev MOD 256:STA&212 
LDA#filev DIV 256:STA&213 
RTS 

«filev 

STA&72:STX&73:STY&74 

PHA:TYA: PHA:TXA: PHA 

LDA&72 :CMP#5 : BCSend2 
LDY#@:LDA (&73) ,Y:STAblock 
INY:LDA (&73) ,Y:STAblock+1 
LDX#block MOD 256 

LDY#block DIV 256 

LDA#5: JSR&FFDD 
CLC:CMP#@ : BEQend2 
LDY#255:. loop: INY:LDAmess,Y 
JSR&FFEE:CMP 463 : BNE loop 
«quest :LDAf7:JSR&FFEE:JSR&FFEØ 
BIT&FF:BMIescape:CLC:AND$223 
CMP#78 : BEQreturn:CMP#89 :BNEquest 
JSR&FFEE: .end: JSR&FFE7: .end2 


34Ø CLC: PLA: TAX: PLA: TAY: PLA: JMP (&7Ø) 

358 .escape:LDA#] 26: JSR&FFF4:BRK 

360 BRK:OPT FNstring ("<Escape>") :BRK 

370 .return:JSR&FFEE: LDA#7 : JSR&FFEE 

380 PLA:TAX:PLA:TAY:PLA 

390 BRK:BRK:OPT FNstring ("File not sav 
ed") :BRK 

400 .mess:OPT FNstring ("Replace old fi 
le (Y/N) 2") 

410 .block:OPT FNstring (STRINGS (2Ø,"*" 
)) 4 

420 ] 

430 NEXT 

440 PRINT; "Ø"; "PS; TAB (14); "End of code 

" 

450 PRINT'" *SAVE SURE 980 ";STRS~P%;" 
900 900" 

46Ø END 

470 : 

1900 DEFFNstring (AS) 


1918 


IF PASS=3 PRINT; "O","P$; TAB (14); "F 


Nstring (";A$;")" 


1920 
1930 
1949 
1658 


FORM$=1TOLEN (AS) 
? (P%+M%-1 ) =ASC (MIDS (AS,M$,1)) 
NEXT: P$=P3+M$-1 


=] s 
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SAR EVI EWS 


Title : Match Day 
Supplier : Ocean Software 
Price : £9.95 
Reviewer : Alan Webster 
Rating utt de 


If you're missing 
televised football this 
year then Ocean have just 
the answer. Not only does 
Match Day give thrilling 
action on your screen, it 
allows you to take part 


as well. There is also the added bonus of 
no referee to blow his whistle for fouls 
or to give 'harsh' decisions. 


Match Day is a 3D representation of 
soccer featuring excellent graphics and a 
nice 'Match of the Day' tune at the start 
of each game. Options are available for a 
one player versus computer game, or a two 
player game. 


You define your own keys for up, down, 
left, right and kick and you are in 
control of your player nearest to the 


Title : Confuzion 
Supplier : Incentive 
Software 
Price : £6.95 
Reviewer : Geoff Bains 
Rating TAS 
After all the 


publicity, you would be 
forgiven for thinking 
that Confuzion is some- 
thing really special. It 
isn't. However, it is 
quite a good game that 


has some unusual features to it. You 
control a spark (!) travelling along miles 
of fuzewire (!!) and have to blow up the 
Confuzion Bombs (!!!) lying around a 
massive factory. 


So far, so ordinary. However, the game 
is really a series of interactive sliding 
block puzzles. The fuzewire is laid in 
patterns across the sliding blocks and you 
must manoeuvre these so that the spark 
runs into the confuzion bombs along the 
outside. Needless to say you have only a 


` VRATA TRANS SATE RA AAN TEENE SA OENE A LEAT TESTE EEE DT IS TEE DIE ANS 


Title : DeathStar 
Supplier : Superior Soft 
Price : £9.95 (£11.95 on 
disc) 

Reviewer : Alan Webster 
Rating ðs 

DeathStar is a 
superbly colourful and 


frantic game. It has all 
the right ingredients to 
make it a classic arcade 
game, including speed and 
excellent graphics. 


Title : Tomahawk 
Supplier : Kansas 
Price : £5.00 
Reviewer : Daniel Gaster 
Rating sd 

Tomahawk is the name 


of the plane you have to 
fly over land and sea, 
bombing enemy ships, 
tanks, bridges, roads and 
buildings. 


DeathStar is one of those annoying 
arcade games. You can't leave it alone, 
but the noise drives you insane! Why don't 
software companies put sound on/off 
options into all of their games? 


The object in DeathStar is to roam the 
galaxy, collecting starbombs and shooting 
the warriors and workers. Once you have 


collected enough starbombs you can set 
about the more difficult task of 
destroying the DeathStar. This is 


gradually made up by the workers during 


The screen depicts the plane from 
above with the landscape scrolling below 
it. The objects on this are randomly 
scattered and vary from land to sea. Many 
fire missiles that home in towards the 
plane and must be spotted early to be 
avoided, though they are very difficult to 
see against the background at times. There 
are also runways at various places where 
extra points can be gained by flying low 
along them. 


Your plane can be moved up and down 
(as well as left and right) and this is 
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ball. There are seven players on each team 
including the goalkeeper who bends his 
legs when he is ready for action. 


The computer controls the players very 
well and uses good tactics for playing. 
The heaviest defeat I have inflicted over 
the computer is 4-1, and likewise the 
computer has beaten me 3-0. 


Overall, if you have £1Ø to spare this 
Christmas, Match Day would make an ideal 
present for football fanatics everywhere. 


te 


limited time to do this and (initially) 
only five sparks to destroy all the bombs 
in the factory. The evil owners of the 
Bomb factory have installed a sprinkler 


system on some of the factory levels. Your å SNE a: 
spark is extinguished on contact with | adanu 
water and so this is a hazard to avoid. s NEN cem 
din] 
Confuzion is both fairly addictive and Seni Aa 
taxing on the grey cells. Planning your dus ns 4 


route across the puzzles and avoiding the pen NNZN 
F = TIÐ D 


water droplets is not easy. It isn't a 
classic by any means, just quite good fun, 


the game, and when complete it will come 
straight for you. 


To kill the DeathStar you must destroy 
all 2Ø bits without being sucked into its 
depths by a powerful force field. After 
destroying the DeathStar you progress onto 
a bonus screen, then to the next, more 
difficult screen. 


DeathStar is a genuine arcade game, 
and should sell well with the shoot-em-up 
addicts. If you do buy it, a set of 
earplugs would not go amiss. s 


snown on the screen by the size of the 
plane changing. The gradual descent of a 
dropped bomb means that the timing has to 
be just right to hit an object. When 
flying at the higher two of the three 
flight levels the time for a bomb to 
descend means that luck is the major 
factor in scoring. 


After a few attempts Tomahawk holds 
little challenge as it seems to go on 
without any specific goal in mind. Despite 
its relative cheapness, I cannot recommend 
this game. 
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Title : Chicane 
Supplier : Kempston 
Price : £9.95 
Reviewer : Geoff Bains 


Rating AES 


Chicane was released 
at much the same time as 
Acornsoft's Revs and as 
such came in for a lot of 


flack when compared 
against’ that epic. 
Chicane is nowhere near 
Title : Sabre Wolf 
Supplier : Ultimate Play the 
Game 

Price : £9.95 
Reviewer : Mitch 
Rating NR 

Graphic adventures 


seem to be the vogue at 
present. The title music 
and graphics of Sabre 
Wolf are very impressive 
and the leaflet, listing 
the many monsters and 


the standard of Revs, either in 
programming or realism. However, it does 
provide a good racing game for the Beeb. 


The format is standard enough. You 
first have to qualify and then you pit 
your skills against the other drivers in 
the race proper. The controls are simple 
to master. There's only five of them. This 
means that you don't need a degree in 
keyboard manipulation to have fun with 
this game, unlike Revs. 


The graphics are good. You view the 


intriguing. When the game is 
loaded, the screen clears to show our 
gallant adventurer standing in a jungle 
clearing surrounded by minutely detailed 
foliage. Then, faster than a dragon up a 
drainpipe, I was set upon by a host of 
creatures who made me very dead! 


objects, 


The object of this game is to tramp 
around a jungle maze picking up objects 
and avoiding the various monsters which 
materialize around you. You are provided 
with a trusty sabre with which you must 
constantly hack at everything that moves. 


MEN ETER ERE MASTERS TT EVIG LIER LAE VISTE PTE OCT DILL NEE ANTE LEI DE, 


Title : Alien 8 
Supplier : Ultimate 
Price : £9.95 
Reviewer : Daniel Gaster 


Rating =: **** 


Alien 8 is one ofa 
recent series of 
conversions by Ultimate 
of old Spectrum classics. 
The game is an 
arcade/graphic adventure. 
Included in the package 


is a glossy instruction leaflet which sets 
the scene of the game with a story but 
does little to tell you the purpose of the 
game. Briefly, this is to pick up a 
variety of objects (only three at a time) 
and restore them to their correct rooms. 


The rooms are presented on the screen 
in two colour, 3D pictures and can contain 
platforms and objects on many different 
levels along with sliding platforms, 
disintegrating platforms, monsters (such 
as clockwork and dalek mice), and more. 
The size of the Alien8 arena is quite 


Title : Estra 
Supplier : Firebird 
Price : £2.50 
Reviewer : Daniel Gaster 


Rating an 


Estra is one of the 
new cheap range of games 
brought out by British 
Telecom. You have to 
collect the 24 pieces of 
the sacred statue of 
Estra, scattered around 


the edge of the screen and deposit them 
within the central force field. 


Various nasties try to prevent your 
achieving this. Between each fragment of 
statue is a small blob which occasionally 
moves towards the central forcefield. 
Other creatures bounce around the edge of 
the screen, and a crab-like monster 


follows you everywhere. When your energy 
runs low an extra supply pack appears 
within a deadly floating forcefield, 


though the positioning of these can make 
it impossible to get the pack! 
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track over the car's dashboard and have a 
good view of the speed and gear 
indicators, the rear view mirrors, and the 
track ahead. Unlike more realistic 
simulations, when you crash into the 
roaðside signs or other cars you just 
start up again and carry on. It's funny, 
but in a crash the other guy always seems 
to just go speeding off, leaving you to 
shift down gears and enter the race again. 
However, Chicane is generally within 
everyone's grasp - financially and 
skilfully - and great fun with it. 

ica 


Success depends on lightning reactions and 
the ability to map a maze whilst being 
pursued by three charging hippos. 


To assist you are the multi-coloured SSS 
orchids which magically bloom for short Oe é ü 
periods in each frame. Running through the Æ YZ é mis 
different colours gives you various powers 
which last for a few nail-biting seconds. 
At least it would be nail-biting if I ate 
could release the keys for an instant. The FARS 
sound and graphics are of a very high Vai L 4 
standard and this game deserves all the 
praise it has received. =) 


amazing. Almost every room presents a 
challenge and requires ingenuity and quick 
reflexes to win through. 


The robot you control can move behind 
objects and can completely vanish from 
view! Unfortunately, the game tends to 
slow down when this happens and it speeds 
up when passing through a simple room. 
Despite this, I would recommend Alien8 to 
anyone wanting a challenge. A truly top 


quality game. 
“e 


The game is fast moving and smooth and 
the plot well thought out. The sound 
effects are above average and pretty well 
all the colours are used to good effect. 
Although the aim seems easy, the screens 
quickly become very challenging as more 
monsters appear and the pace speeds up. 


Instructions are only included on one 
side of the cassette so if they are not 
required the game can be loaded much 
quicker. I enjoyed playing this game and 
it is good value for money. 
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Colour 
Blending 


Using graphics on the BBC micro, and 
colour graphics in particular, can offer a 
wealth of programming opportunities with a 
fascination of its own. However, the range 
of colours may at first sight seem limited 
compared with some other machines. It is 
not difficult, though, to mix the standard 
colours to produce even more shades as you 
will see. 


In the non-teletext modes, modes 9-6, 
the Beeb is capable of displaying 8 
different colours and 8 flashing 
combinations of colour, although only one 
of those modes, mode 2, allows all 16 
colour options to be displayed 
simultaneously. The other modes have fewer 
colour choices, but higher resolution. 


Each point on the Beeb screen can be 


coloured independently of adjacent 
points, and this feature enables us to 
create a range of shades by weaving 
together two or more colours. On a high 


resolution monochrome monitor, the result 
of such weaving would be no more than a 
textured area of the screen, but on a 
lower resolution monitor, or a television 
set, the colours blend to form new shades 
and hues. The effectiveness of the result 
will depend on the colours used, and the 
quality of your video. 


The program set out here illustrates 
the simplest way of weaving together two 
colours. To try it out just enter the 
program, save to cassette or disc if you 
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If you think the Beeb is The 
only capable of 
displaying 8 colours 
then think again. Alan 
Dickinson shows how 
to blend these colours 


wish to keep a copy, and 
type RUN. It is set up to 
use mode 1, but you can try 
it in other modes simply by 
changing the first line. Of 
course, it won't work in 
mode 7, which uses entirely 
different screen handling 
techniques. 


first few lines of 
VDU23 commands define a set 
of five special characters, 
assigned ASCII values 251 
to 255, which are used to 
form the mixing patterns. 
They vary from a complete 
block of foreground colour 


together to produce (255) to a complete block 

c e of background colour (255), 
many intermediate with a graduation of 
shades. lattices in between (252, 


253 and 254 as shown). 


Character definitions 


The use of these special characters is 
demonstrated by the program. The pattern 
is first drawn so that the foreground is 
in logical colour 1 (red), and ` the 
background is in logical colour 2 
(yellow). Five adjacent areas of the 
screen, each 7 characters high by 4 wide, 
are filled in using each character in turn 
(lines 330 to 380). Once the basic display 
is complete, a text window is defined to 
prevent the pattern being scrolled off the 
screen, and the final section of code 
(lines 498 to 558) switches the logical 
colours 1 and 2 to different physical 
colours of your choice using the VDUI9 
command (see 'Beginners' article in Vol.3 
No.4 for more information on this). Some 
of the intermediate colours formed are 
quite tasteful, whilst others are 
startling and ghastly. White, (colour 7), 
mixes well with most colours as does 
black, (colour 8). Remember that although 
you are using a four colour mode, you can 
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input the codes for any of the 16 physical 
colours, numbered Ø-15. 


This program provides a useful testbed 
for working out the best colour mixes for 
any particular purpose. In your own 
programs, the same character definitions 
could be used to colour in any area that 
can be defined in character terms. The 
same principles for mixing colours can 
also be use with the MOVE, DRAW and PLOT 
instructions. For example, you could draw 
a grid of vertical and horizontal lines in 
one colour over a background of a 
different colour. As with many of the 
visual effects that can be produced on the 
Beeb, experimenting with different ideas 
and techniques can be well worth while. 


BLENDING COLOURS 
First Colour 
Second Colour a 


First col 
Second pe Å 


1Ø REM Program BLENDER 

2Ø REM Version Bl.Ø 

3Ø REM Author Alan Dickinson 

4Ø REM BEEBUG December 1985 

5Ø REM Program subject to copyright 


MODE I 

WALS 

REM DEFINE CHARACTERS USED 
REM TO MIX COLOURS. 


STIPPLED LINES - C.J. Collins 


rt en A a 


140 : 

159 VDU23, 251,255,255, 255,255,255,255, 
255,255 

168 VDU23,252,85,255,85,255,85,255,85, 
255 

178 vDU23,253,85,170,85,170,85,170,85, 
178 

188 vDU23,254,85,,85,Ø,85,Ø,85,9 

198 VDU23,255,0,0,0,0,0,0,0,0 

200 

210 REM DRAW SCREEN WITH GRADUATION 

220 REM OF COLOUR FROM COLOUR] TO 2 

230 : 

240 CLS 

250 PRINTTAB (8,2) "BLENDING COLOURS" 

260 PRINTTAB (0,4) "First Colour" 

276 PRINTTAB (0,6) "Second Colour" 

288 COLOUR1 390 

298 COLOUR1 

300 PRINTTAB (16,4)CHR$251; 

31Ø PRINTTAB (16,6)CHRS255; 

32043 

33Ø FOR Y%=12 TO 18 

34Ø PRINTTAB (@,Y%) ; 

350 FOR X%=Ø TO 4 

36Ø PRINTSTRINGS (4 ,CHR$ (251+X%) ) ; 

37Ø NEXT X% 

38Ø NEXT Y% 

390 : 

4ØØ COLOUR 3 

41Ø COLOUR 128 

420 : 

43Ø REM SET WINDOW TO PROTECT PATTERN 

44Ø REM AND SWITCH COLOURS IN PATTERN 

450 REM BY ALTERING PALETTE (VDUI9'S) 

460 : 

470 VDU28,0,31,19,24 

480 : 

490 REPEAT 

588 CLS 

510 INPUT"First colour ",F% 

528 INPUT"Second colour ",B% 

530 VDU19,1,F%,0,0,0 

540 VDU19,2,B%,9,9,0 

550 UNTIL FALSE 

568 END 


Fel 


To plot an area with alternate pixels in alternate colours, the quickest method is 


to use the dotted 
horizontally. 


line PLOT codes (16 to 23) and shift every other line one pixel 
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DNFS ADDRESSES - James Medcalf 


Whereas the Acorn DFS stores the load address and length of a program 
and &C2, respectively, the DNFS stores these at locations two bytes lower - at 


at &BE 
locations &BC and &CØ. 
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just loaded 
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Upgrade your B+ 
to 128K 


Acorn has not only released the 
128K version of the B+, but all 
existing B+ owners can upgrade 
their machine to this memory 
size with Acorn's upgrade kit. 
Geoff Bains investigates. 


For once, Acorn has not been left 
behind. Amidst the current surge of forth- 
coming 128K home computers, Acorn has 
announced a 128K B+ and an upgrade for the 
64K Bt. The B+ 64K upgrade costs £39.95 
including fitting. It must be fitted by a 
dealer (such as the new BEEBUG shop). 


The upgrade circuit board contains 
four chips (two 32K RAM chips and a couple 
of control chips) and sits vertically on 
the extreme right hand edge of the Bt's 
main board. You also get a disc, a slim 
manual, and a new 1770 DFS chip with 
utilities to make use of the extra 64K, 
However, Acorn was not able to tell us 
where these utilities will come from if 
you purchase an ADFS upgrade (see page 19 
of this issue) to replace your 1770 DFS. 


Acorn claims that the expansion socket 
the upgrade board uses was never meant for 
this. It was meant to take an alternative 
type of 64K RAM if supplies of the chips 
on-board ran out. However, some bright 
spark thought that using it to add another 
64K would be a good idea. Judging by the 
mess of ten flying cables that the upgrade 
requires, this story seems to be true. 


The extra 64K of RAM is basically four 
sideways RAM blocks and can be used in one 
of two ways. Firstly the RAM can indeed be 
used as four sideways RAM areas, in side- 
ways blocks, &C, &D, Ø, and 1, with 
sideways ROM images loaded in from disc to 
be used in the normal way. For this 
purpose the DFS has a few extra utilities. 
*SRLOAD and *SRSAVE will load and save ROM 
images to and from disc. *SRREAD and 
*SRWRITE will copy sideways RAM to RAM and 
vice versa. However, *SRSAVE and *SRREAD 
will not operate with sideways ROM as a 
protection against piracy. 


The extra 64K can also be used as a 
contiguous block of memory for data 
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SIDEWAYS | SIDEWAYS 
RAM/ROM | RAM/ROM 


pre 
MEMORY MAP OF B+ 128K RUNNING BAS 128 


storage. For this purpose there are two 
more commands - *SRDATA and *SRROM to 
specify each of the 16K blocks as general 
RAM or for sideways software. However, 
using it in this way is pretty tricky. 


Much easier is to use Basic. Supplied 
with the upgrade is a disc containing a 
new BBC Basic called BAS128. This loads 
into the area of memory normally occupied 
by your programs. Your programs instead go 
in the 64K extra RAM. Having a full 64K 
free for Basic programs makes the B+128K 
unique amongst the 128K, 8 bit home 
computers. BAS128 is identical to normal 
ROM Basic with a couple of exceptions. All 
RAM addresses range from &1ØØØØ to &1FFFF 
and DIM and the indirection operators work 
accordingly. Using the (normal) range of 
&ØØØØ to &FFFF causes problems if you 
start to poke into regions of the RAM 
containing BAS128. The assembler operates 
with these 17 bit addresses too, but you 
cannot assemble any code greater than 16K 
in length as BAS128 cannot cope with a 
jump across the 16K RAM blocks. 


Although the B+128K is so obviously an 
afterthought, it is put together extremely 
well. The four sideways RAM slots are 
nothing very new or exciting, but 64K free 
for Basic is useful and should keep the 
BBC micro in the public's eye and on their 
shopping lists for a bit longer. =] 
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Programming with 


Wordwise 


(Part 3) 


Stephen Ibbs 
concludes his 
series on 
programming in 
Wordwise Plus 
with more useful 
routines and hints to make the 
most of this popular 
wordprocessor. 


The problem set last month concerned 
the conversion of the chapter numbering 
routines from BEEBUG Vol.4 No.2 into a 
single routine with procedures that can be 
selected from a menu. There will need to 
be three sections to such a program: 

The design of the menu. 

The ability to reset all variables. 

The actual numbering routines. 


The menu can be made more 
‘user-friendly’ by the use of VDU commands 
(corresponding to their Basic counter- 
parts) as described in the ‘Hints for 
Wordwise Plus Users' in BEEBUG Vol.4 No.5. 
Here is the menu section of the program: 


SELECT TEXT 


VDU131,141 
PRINT " 
TIMES 2 
VDU31 ,9,6 
PRINT " Press 1 for a new chapter" 
PRINT " Press 2 for a new section" 
PRINT " Press 3 for a new sub-section" 
PRINT 

PRINT 

VDU134 

PRINT "Press Return to reset numbers" 
D%=GET 


Chapter numbering" 


VDU141 gives the double height 
lettering of the title and VDU131 the 
yellow letters. Note we use the 
DOTHIS-TIMES commands to print the two 
halves of the double height title. The 
VDU31 command, followed by 2 parameters, 
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places the cursor anywhere on the screen. 


The ability to display a menu from 
which selections may be made, makes the 
operation of routines very easy, but be 
careful not to use up: precious memory 
space just on ‘decorating’ a routine. 


GET assigns the ASCII code for the key 
pressed to D%. We need to check if Return 
has been pressed, reset the variables if 
it has, then return to the text by jumping 
to the end of the routine. However, if 1, 
2, or 3 have been pressed then the 
appropriate procedure must be called. So 
the following lines are added: 


IF D$=13 THEN PROC RESET 

IF D$=13 THEN GOTO end 

PRINT 

VDU134 

PRINT"Type the title then press RETURN" 
VDU31,1,16 

IF D$=49 THEN PROC CHAP 


IF D$=5Ø THEN PROC SECT 
IF D%=51 THEN PROC SUB 
«end 

AS="" 

DISPLAY 

END 


After the end has been marked we can 
insert the procedures as follows. 


«CHAP 

AS=A%+1 

B3=Ø 

C3=Ø 

AS=GLKS 

TYPE STRSAS+" "+AS+"|R" 
ENDPROC 

;BECT 

B%3=B%+1 

C3=Ø 

AS=GLKS 

TYPE STRSAS+"."+STRSBSt+" "+AS+" |R" 
ENDPROC 


+ SUB 

C%=0%+1 

AS=GLKS 

TYPE STRSA%+"."+STRSB%+","+STRSC%+" "; 
TYPE AS+"|R" 

ENDPROC 


« RESET 
A%=Ø 
B3%=Ø 
C3=Ø 
AS="" 
ENDPROC 


You will notice that the TYPE lines 
have been simplified by using the STR$ 
function. This is much easier than having 
to convert each integer variable into its 
string equivalent. However, note that in 
the SUB procedure the TYPE command is 


split between two lines. No segment 
program line should be longer than 49 
characters. Otherwise, under rare 


circumstances, the routine may not run. 
Note also that only AS is now used so it 
is easily cleared at the end. 


HINT: No segment line should be longer 
than one screen line. Use abbreviations 
and omit spaces to reduce the line length. 


Note that inserting words into your 
text, using TYPE, will result in the word 
count, displayed at the top of the screen, 
being incorrect. This can be corrected 
using the command RECOUNT, either from 
within your program or in immediate mode. 


HINT: When you have used the TYPE command 
to insert text into the main area, you 
will need to RECOUNT to maintain an 
accurate word count. 


TEXT PRINTING 

If you tried the PRINT routines 
published last month you may have found 
that it would be useful to know if your 
text files finish with a BP embedded 
command as this would spoil the continuity 
of the printout. It is quite easy using 
the knowledge gained so far and the 
TRUE/FALSE functions to check if a BP 
exists and to deal with it. 


One problem is that the embedded 
command could be in upper or lower case. 
This problem occurs time and time again. 
Rather than test for both BP and bp (or 
even Bp and bP), we can AND the ASCII code 
with 223 to always obtain the upper case 
code. 


HINT: When a letter is to be entered, trap 
lower case by using GET AND 223. 


Thus to check for a BP, the lines: 
SELECT TEXT 


A$=FALSE 
CURSOR BOTTOM 


CURSOR LEFT 5 
FIND CHR$2 
IF EOT THEN GOTO fail 
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start the routine by setting A% to return 
a FALSE value (zero), move back a few 
characters from the end of the text and 
look for an fl (found with CHR$2). There is 
a trap for EOT which will eventually jump 
to the end of our routine. Once we have 
found the fl, the cursor must move to the 
right, then check the next 2 characters: 


CURSOR RIGHT 
IF (ASC(GCT$) AND 223)<>66 THEN G.fail 
IF (ASC(GCTS) AND 223)=8Ø THEN A%=TRUE 


«fail 
IF A% THEN CURSOR LEFT 3 
DISPLAY 


66 and 80 are the ASCII codes for Band P 
respectively. Only if both are found will 
A% become TRUE and the cursor be moved 
back to the start of the embedded command. 
Note that the penultimate line does not 
have to be: IF A%=TRUE THEN... because IF 
Ab THEN... means the same. 


This 'subroutine' would normally be 
part of a larger program, for example a 
continuous files printer, where you may 
need to check how each file finishes. Once 
you have A% set as TRUE you can then 
DELETE or TYPE the BP command as needed. 
Deleting would be very easy, by inserting 
the following just before the DISPLAY 
line, or making it a procedure to be 
called by, say, ‘IF A% THEN PROC delete". 


IF NOT A% THEN GOTO skip 
REPEAT 

DELETE AT 

UNTIL EOT 

«Skip 


USING TEXT FILES 

As well as using text in memory, 
segment routines can be written to access 
Wordwise text files on disc (and, less 
usefully, on tape) or create new ones. 
There are two important points to 
remember when accessing files in this way: 

1) Check often to see if you are at 
the end of the file, using EOF#. 

2) Remember to close the file when you 
have finished, 


Initially, to open a file, you have to 
assign its 'channel number' to an integer 
variable. Thus to open a file called 
TESTER, we would use: 


Ad= NIN IR? 
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Once opened, any reference to this 
file is done via A%. As a very simple 
example, let us take the first five lines 
fron a file and insert them into segment 
6. The routine could consist of the 
following: 


A%=OPENIN "TESTER" 
X%=Ø 

REPEAT 

AS=GLFS#A% 

SELECT SEGMENT 6 
TYPE AS 


IF LEN (A$)<255 THEN TYPE "|R" 
X%=X3+1 

UNTIL X%=5 

CLOSE#A3 

AS="" 

DISPLAY 


The GLFS# ('Get Line from File!) 
behaves in a similar way to GLT$ in that 
it can accept up to 255 characters, but 
will stop before this figure is reached if 
it finds a Return. When collecting single 
characters, you can either use GCF$# which 
returns the character, or BGET# which 
returns the ASCII equivalent. 


As was mentioned in the first part of 
this series, a "|R" will have to be 
included in the TYPE lines, otherwise the 
recovered text will have no Returns in it. 
If you are using discs, you will see how 
fast the routine runs. The OPENOUT 
function can be used when writing files. 
To develop the above example further we 
could take the first 190 characters from 
file TESTER and insert them into a second 
file TESTING with the following: 


AS=OPENIN "TESTER" 
B%=OPENOUT "TESTING" 
X3=Ø 

REPEAT 

C3=BGET#A3 

BPUT#B% ,C% 


X3=X3+1 
UNTIL X%=1ØØ 
CLOSE#A% 
CLOSE#B% 
DISPLAY 


However, note that if a file called 
TESTING already exists on the disc, this 
will be deleted, so check before running 
any routine like this. Add some lines to 
the start of the routine: 
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B3=0 
B3=OPENIN"TESTING" 


IF B%<>@ THEN CLOSE#B3% 
IF B%<>Ø THEN GOTO warn 


A routine, 'warn', should be inserted 
somewhere in the program to warn that a 
file already exists with that name. B% 
will only be assigned a channel number, 
and be greater than Ø, if a file called 
TESTING is found. BGET# is used because 
the writing to a file can only be perform 
ed one character at a time, using BPUT#. 


You can search for a 
character or line in a 
GCFS# and GLFSH functions, but you must 
remember to move backwards after finding 
it so that the pointer is at the correct 
place, using the PTR# function. For 
example if we were looking for the line 
"This is a test line" followed by a RETURN 
you would then write: 


AS="This is a test line" 
A3=OPENIN "TESTING" 
REPEAT 

BS=GLFS#A% 


particular 
file using the 


UNTIL B$=A$ OR EOF#A% 
PTRHAS=PTRHAS- (LEN (BS) +1 ) 
DISPLAY 


The same routine could be used if you 
were looking for one particular character 
by using GCFS# instead, in which case you 
would need only to move the pointer back 
one position. In case the line doesn't 
exist the REPEAT-UNTIL condition include a 
test for the end of the file. Also, if the 
line being searched for is exactly 255 
characters long, a Return won't be 
encountered so only move the pointer back 
by the length of B$. 


HINT: When you've used GCFS# or GLFS# to 
find a particular point in the file 
remember you may need to move the pointer 
back either 1 position with GCF$, or the 
length of GLFS# (plus 1 if the length is 
less than 255). 


This short series is intended to 
provide an introduction to programming in 
Wordwise Plus. Much more could be written 
about the commands we have covered and, 
indeed, those that we have not touched. 
Readers are strongly encouraged to delve 
further into this language and see just 
how flexible and useful it can be. 53] 
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Earlier BEEBUG Workshops on sorting techniques 
provoked considerable interest. This time Surac 
considers how best to choose a sort routine to match 
your requirements. The fastest sort in theory is not 
always the fastest in practice. 


HE 
E H 


ii 


Regular readers may 
remember that, in Beebug 
Vol.3 No.1Ø & Vol.4 No.1, 
I looked at various ways 
of sorting data into 
order. Those articles 
prompted quite a lot of 
correspondence and so, 
this month, I'll follow 
up some of the points 
which you raised. 


One result of the 
fixed length of BEEBUG 
Workshops is that some- 
times, less information 
is included than one 
might wish. One such area 
in those articles was how 
to add an item into the 
right place in an 
already-sorted list. For 
instance, if you are 
keeping a list of club 
members, you will prob- 
ably want to add new ones 
in alphabetical order. 


One way is to re-sort 
the list as each item is 
added. Tor do this, 
though, you must choose 
the sorting algorithm 
very carefully so that 
the sort after each item 
is entered is very fast. 


Here's where it comes 
in useful to know how the 
different sorts react to 
different data arrange- 
ments. Some are very much 
affected by the way that 
the data is already 
ordered, while ` others 
have pretty consistent 
run times. For example, 
the Shell sort is a good 
general-purpose sort, and 
normally much faster than 
the Bubble sort. In one 
particular case, however, 
the Bubble is noticeably 
faster, If the list is 


already in order, apart from only one 
item, then the correction can be made very 
quickly. This is because the sort only 
needs to make one pass through the list. 


This is exactly the case we have when 
we add an item to a list. However, we do 
need a slightly more specialised program. 
My original Bubble sort started at the 
bottom (i.e. the low index numbers) of the 
array of data and bubbled items up to the 
top. If, however, we are adding data to 
the list, it is easier to add it at the 
top (e.g. by adding 1 to an array index); 
we therefore need to adapt the system to 
bubble (or should it be sink?) an item 
DOWN to the correct place. 


Here is a revised version of the 
original PROCBUBBLE to do the job. You 
will see that I have also changed it to 
access the data in array() via the 
pointers in ptr%() - this is the most 
likely need in database programs, etc. 


SINKSORT 
DEF PROCsink(st%,fin%) 
IF st%>=fin% THEN ENDPROC 
LOCAL F%,I% 
FOR I%=st% TO fin% 
ptr (13)=I% 
NEXT 
REPEAT 
F3=FALSE 
FOR I%=fin% TO st%+] STEP -1 
IF array (ptr% (13-1))> 
array (ptr% (1%)) 
THEN PROCSWAP 
NEXT 
st3=st%+] 
UNTIL NOT F% 
ENDPROC 


1ØØØØ 
1ØØ1Ø 
10020 
10030 
10040 
16856 
10060 
19070 
10080 
18698 


19100 
18118 
19128 
10139 


10589 
186518 
10528 
10539 
19540 
18550 
18568 


DEF PROCSWAP 

LOCAL temp% 
temp%=ptr% (1$-1) 
ptr3(13-1)=ptr3 (13) 
ptr% (1%) =temp% 
FS=TRUE 

ENDPROC 


QUICKSORT 
Several Beebug members referred to the 
'Quicksort'. This is a very fast way of 
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ICKSORT 
11900 DEF PROCquicksor€ (st%, fins) 
11910 IF st3>fin% THEN ENDPROC 
11929 LOCAL hiptr%,loptr%,midval 
11930 loptr%=st%:hiptr%=fins 
11946 midval=array((st%+fin%)DIV 2) 
11050 REPEAT 
11960 ` loptr%=loptr%-1 
11070 REPEAT 
11088 loptr$=loptr%t+1 
11898 UNTIL array (loptr%)>=midval 
11199 | hiptre=hiptrd+] 
1111Ø REPEAT 
1112Ø hiptr3=hiptr3-1 
11138 UNTIL array (hiptr’) <=midval 
1114Ø IF loptr%<=hiptr% THEN 
PROCgswap (loptr%,hiptr%) 
1158 UNTIL loptr%>hiptr% 
1116Ø IF st%<hiptr3 THEN 
PROCquicksort (st%,hiptr3) 
11170 IF loptr&<fin% THEN 
PROCquicksort (loptr3, fin’) 
1118Ø ENDPROC 


12000 DEF PROCqswap (sptr1%,sptr2%) 
12018 LOCAL temp 

12020 temp=array(sptrl%) 

12030 array (sptr1%) =array (sptr2%) 
12040 array (sptr2%) =temp 

12058 loptr%=loptr%+1 

12068 hiptr%=hiptr3-1 

12070 ENDPROC 


sorting long lists, although it's not so 
good for short ones. Unfortunately, it is 
a little tricky to explain. 


Briefly, the sort finds the value in 
the middle of the array and then works in 
from each end to the middle. As it works 
in, the sort moves the individual elements 
around so that all in one half are greater 
than or equal to the middle value, while 
those in the other half are less than it. 
At that stage, it has done a very rough 
ordering. 


Having done that, it splits the whole 
array into 2 halves, re-sorting each half 
into a high side and a low side. Each of 
the 2 halves is then split into 2 more 
halves and the procedure repeated. Then 
the quarters are halved... At the end of 
repeated halving, which goes as far as 
adjacent elements, the whole thing is 
found to be sorted. The technique is 
sometimes called ‘Sorting from Both Ends'. 
What I hope that description shows is that 
the sort uses the same basic split and 
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divide process on successively smaller 
parts of the array until it is finished. 
Such an approach is a perfect application 
for a recursive procedure. 


All that recursion means is that a 
function is called by itself, which is 
called by itself..., doing a bit each time 
until a call creates an exit condition and 
the whole chain unravels. Here's some 
pseudo-code for an important recursive 
procedure: 

1 DEF PROCDrink Beer 

2 Take a Swig — 

3 IF Glass NOT Empty PROCDrink Beer 

4 ENDPROC 


Most Basics make it almost impossible 
to use recursion, since all the variables 
used at each recursion level must be 
preserved while deeper calls are active. 
BBC Basic, though, supports recursion very 
well, with its FNs, PROCs and LOCAL 
variables. Here is a recursive Quicksort. 


Line 11048 finds the middle value of 
array(), or the part of it sent to the 
procedure, and then the two REPEAT-UNTIL 
loops at lines 11968-11090 and 11100-11130 
find misplaced elements either side of the 
centre point. Assuming that the 2 pointers 
have not crossed (why?) the elements are 


swapped. 


This continues until the pointers HAVE 
crossed when, and only if there are 
elements to sort, the recursive calls to 
further sort the high and low halves are 
made. These, of course, repeat the process 
until only one element in array() has to 
be 'sorted', when that recursive chain 
unravels. Note that the procedure's 
parameters are LOCAL, as are the variables 
it uses. This means, for example, that 
loptr$ in one level of the chain is 
different from the loptr% in the next 
level up or down - the system saves them 
all for us. 


On the magazine cassette/disc, you 
will find a Quicksort demo program which 
shows very clearly how the method sorts in 
from each end. It also sorts the same 
items via a Shell sort, so you can see the 
speed difference of the two approaches. 


Finally, my thanks to all those Beebug 


members who contributed ideas to this 
month's column, in particular Mr 
G.L.Howitt and Mr A.G.Rimmer. sj 
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Wizards who have been cursed with the 
affliction of a Spectrum in the past may 
have come across this month's first 
adventure before. 


Title : Castle Blackstar 

Supplier : CDS Micro Systems 
Silver House, Silver St., 
Doncaster, South Yorks. 


Price: : £6.95 (cass. only) 


The original version of this text-only 
game was voted one of the top eight 
adventures of 1984 - and it deserved it. 
The game conceals over 200 well described 
locations about its person, crammed full 
of reasonable puzzles. The object of the 
quest is to search the rooms and 
underground passages of Castle Blackstar 
and thus find and restore the magic orb to 
the goddess Artemis. 


Luckily the goddess keeps a weather 
eye on your progress and should you go 'A 
over T' down some black hole, she will 
reincarnate you with a quick puff of pixie 
dust. The game permits easy access to a 
large number of initial locations which 
contain a wealth of interesting objects to 
Manipulate - a bottle of heat resisting 
liquid, a coil of elfin rope and a bag of 
flour, for example. 


There are many cryptic messages to 
read, odd shaped buttons to push and 
wheels to turn, all of which have 
intriguing results off-screen. As with 
many Middle Earth scenarios there is a 
forest maze, in which I soon felt as dense 
as the trees so I returned as quickly as I 
could to the relative sanity of the 
castle. 


The game accepts sentence commands but 


should it fail to recognise something, it 
unfortunately gives no indication as to 
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SS 


by Mitch 


which word it baulks at - budding authors 
please note! No hints and answers sheet is 
supplied, so befuddled players must write 
to CDS for any help. I must confess that I 
prefer this option. Supplying a sealed 
envelope to an adventurer is a bit like 
placing a bag of buns within talon reach 
of the BEEBUG dragon. 


There is a Troll Bridge and a 
knife-throwing elf but there is little 
else in common with 'Colossal' other than 
the sheer size of this game. Furthermore, 
even more complex adventures are promised 
by this company. That's certainly good 
news. 


On the subject of Answer Sheets, I 
must confess to having finally peeked at 
the solutions to Acornsoft's Acheton - I 
was not impressed! Personally I feel some 
of the solutions are less than fair which 
is a great pity as I had high hopes for 
the game - any comment? 


For those intrepid adventurers who 
possess a fairly full purse of gold, a 
lust for adventure beyond the stars, (and 
a disc drive) comes Enthar Seven. 


Title: : Enthar Seven 
Supplier : Robico Software 
3 Fairland Close, 


Llantrisant, Mid Glamorgan 
: £17.95 (two 40 track discs) 
£16.95 (80 track disc) 


Price 


Fresh from its triumphs with 
‘Assassin' and 'Isle of Xaan' (see the 
reviews in BEEBUG Vol.4 No.4), Robico has 
unveiled the answer to Acornsoft's 
'Acheton'. With over 458 locations to 
explore, 80 objects to manipulate and 1200 
messages, Enthar is a whole new dimension 
for Beeb disc owners. Happily, the 
problems contained within, are not as 
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large as the game itself and so 
more the eventual dawning of the new day 
which finally made me release the keyboard 
and stagger back up from the dungeon to 


it was 


It is the distant future. You are on 
board a fragile ‘Interplanetary Space 
Hopper' which orbits a small Earth-like 


planet known as Enthar Seven. Your task is 
to reach the planet's surface before the 
Hopper's orbit decays and the spaceship 
spirals into oblivion! Once on Enthar 
Seven you must explore the planet and find 
and board an escape vessel. 


The Enthar Seven planet is a long 
abandoned Earth colony which is now kept 
ticking over by a small crew of robots who 
continue to clean and guard the various 
electronic whizz boxes. Their other main 
task is to blast the living daylights out 
of foolish adventurers who are to be found 
wandering around looking for such things 
as computer registration cards and 
sticking plasters! 


My spell book defines a good adventure 
as one which allows me to wander 
throughout large sections of the terrain 
before finally having to face the 
nitty-gritty. I also prefer my nitty to be 
mildly gritty rather than a few concrete 
blocks as in Acheton! Enthar has achieved 


this recipe rather well, in that the 
central feature of the game is the 
transporter room. Using the transporter 


dial you may select, at random, any of the 
seven main areas on the surface of the 
planet Enthar. This ensures that you won't 
sit crying over an expensive ‘dragon in a 
poke' having been stumped by the first 
mind boggling dead end. 


The locations are generally given full 


screen descriptions which give fairly 
obvious nudges when you are paying 
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attention. The main areas feature forests, 
laboratories, space shuttle interiors, and 
various computer control centres. The 
obligatory dimming torch and maze is to be 
found but their solution is designed to 
slow you down rather than to cause 


apoplexy. 


The puzzles posed by the game are 
intriguing and the solutions are 
moderately easy. In the main I knew a 
probable solution to each puzzle and a 
likely object to overcome it. However, the 
difficulty came when attempting to find 
the object! The typical command examples 
given with the game are an invaluable 
source of help when phrasing your inputs, 
thus avoiding the usual frustrating search 
for the winning phrase required to satisfy 
a stubborn command analyser. 


The game is text only, but this is 
always plentiful, witty, and in colour. As 
the game is supplied on disc (as 200K of 
data), there is some spare roan so I'm 
surprised that Robico did not guild the 
lily with a few pretty pictures. 


The game's high price tag is 
unfortunate as it comes at a time when 
price decreases seem to be the norm. 
However, this can be partially offset by 
joining the Robico Club which entitles 
members to a discount of approx £1.5Ø. In 
addition to the game on the program disc, 
there is a section of commercials. Screen 
shots from other adventures and graphic 
games are shown along with reviewers' 
comments. This seems a painless way to 
view before you buy. 


The true measure of this game is that 
I know I will continue to stumble through 
its corridors until I finish it, which is 
more than can be said for many other 
offerings I have peered into of late. 
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Programming 
sideways 


Basic Programs 


J. P. Jakubovics extends last 
month’s sideways software 
utility to download your Basic 
programs from sideways ROM 
and RAM. 


As mentioned in last month's article, 
only machine code routines can be executed 
in ROM. Basic programs can however be 
stored in ROM, provided they are moved 
down into main memory before being run. 
The move down can be done with a very 
simple machine code routine as in 
Program 3. To use it, proceed as follows: 


1. Load into memory the Basic program you 
want to store in ROM, and make sure 
that it works correctly. While it is in 
the computer, find the length of your 
Basic program by typing: 


L3=TOP-PAGE 
PRINT L% 


Make a note of the result, because if 
you need to switch off the computer 
before you have finished all the steps 
below, you will need to reset L% to 
this value. 


2. The Basic program to be transferred 
into ROM should be saved to disc or 
tape. 


3. Type or load in Program 1 published in 
last month's article and add Program 3 
to it (this can be done by merging the 
two programs together as explained on 


page 402 of the User Guide). Save the 
combined program, set PAGE to &4ØØØ 
(PAGE=84ØØØ <Return>) and load the 


program back in. 


4. Now run the program and note the value 
of 'basic%' which is printed out. 
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5; *LOAD the Basic program to the 
address given by 'basic%'. For example, 
if basic’ was printed as &2287 then 
type '*LOAD name 2287'. 


6. *SAVE the entire machine code from 
address &2008 up to &4ØØØ i.e. type 
*SAVE romname 2000 4000. 


7. To test the program, you must either 
*LOAD it in at &8ØØØ if you have 
sideways RAM, or blow it into an EPROM. 
Unfortunately, Program 2 from last 
month does not cope with Basic, because 
the Basic program to be copied from one 
part of memory to another would 
overwrite Program 2 before it had 
finished running. 


The two lines 2620 and 2710 use the 
letter B to access the Basic program in 
ROM. This letter can be changed to any 
other capital letter from A to Z, but the 
two occurrences have to be the same, 


When you have completed the above 
steps and wish to test that it all works, 
type *B (or whichever letter you have 
chosen), and your Basic program will be 
moved down into main RAM (starting at 
PAGE) and run. 


Program 3 


2620 .help% (ASC ("B")-65) OPT FNequs (CHR 
$13+CHR$13+"Runs the BASIC program in RO 


2630 BRK 

2640 .basic% 

2656 ] 

2660 FOR J%=1 TO L% 

2670 P%?J%=Ø 

2680 NEXT 

2690 P%=P%+L% 

(OPT 1% 

2718 .com% (ASC ("B")-65) LDX #(L% DIV 25 


2778 STA &6E 

2780 LDA it ((basic%+os3+L%-(L3 MOD 256)) 
DIV 256) 

2790 STA &6D 

2800 LDA #((basic%+os%+L3-(L% MOD 256)) 
MOD 256) 

2810 STA &6C 

2820 LDY #(L% MOD 256) 
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283Ø .downloop% DEY 
2840 LDA (&6C) ,Y 
2850 STA (&6E) ,Y 
2860 CPY #0 

2870 BNE downloop% 
2880 DEC &6F 

2890 DEC &6D 

2900 DEX 

2910 BPL downloop% 
2920 BMI £x15% 

2930 .run% OPT FNequs ("O."+CHRS$13+"RUN" 
+CHR$1 3) 

29408 BRK 

2950 .£x15% LDA #15 
2960 LDX #1 

2970 JSR &FFF4 

2980 LDX #0 

2990 STX &6B 

3ØØØ LDA #138 

3010 .fx138% LDX &6B 
3020 LDY run%tos%,X 
3Ø3Ø BEQ endbasic% 
3Ø4Ø LDX #Ø 

3050 JSR &FFF4 

3060 INC &6B 

3070 BNE £x138% 

3080 .endbasic% RTS 
9815 PRINT "basic%=&";"basic% 


As an example of transferring a Basic 
program to sideways ROM or RAM, you can 
use the program listed below. This is a 
simple Basic program to print out the 
titles of your sideways ROMs in mode 7. 


1Ø MODE 7 

20 FORAS=1 TO 23 

3Ø VDU31,Ø,A%,146,234 

40 IF A%>1 AND A$<23 VDU131 
58 VDU31,38,A%,146,181 

6Ø NEXT 

79 FORA$=2 TO 38 

8Ø VDU31,A%,1,252 

99 VpU31,A%,23,175 

100 NEXT 

11Ø VDU28,3,21,36,3,12 

120 PRINTTAB (10) "ROM SOFTWARE" 
138 PRINTTAB (9)CHR$145; STRINGS (12,CHR$ 


140 PRINT: FORB%=8TO14 
159 VDU133:IFB%<1Ø VDU32 
16Ø PRINT;B%;".";:VDU134 


EE A ATT SS RES CA E 


170 N%=&8ØØ9: REPEAT 

180 Y%=B%:?&F6=N%:?&F7=N% DIV 256 

190 A3=USR (&FFB9)AND&FFØØØØ DIV &1ØØØØ 
200 IFA%>Ø AND A%<32 A%=32 

210 VDUA3:N3=N$%+1 : UNTILAS=8 OR N%>&8G2 


220 PRINT:NEXT 


Type the above example in and save it 
to cassette or disc. Then find the length 
of the program by typing L%=TOP-PAGE and 
PRINT L%. The value of L% should be around 
414, 


ROM SOFTWARE 


WORDUW I SE - PLUS 
ROMAS 


Graphics Extension ROM 1.2 
SPELLCHECK II 

SLEUTH 

ASMES 

- DDT MASS 

TOOLKIT 

Disc Snarf 

EXMON II 


Uawneo 


6 
7 
8 
9 
o. 
1 
2. 


. The BASIC Editor 
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du qt q put pat 
aw 


Now combine Program 1 from last month 
and Program 3 from this month to form a 
new program. Save the new program and set 
PAGE to &4ØØØ. Re-load the program and run 
it. 


This should now set 
code move-down routine and print out a 
value for basic’. The value of basic% 
should be around &22B6. Then *LOAD the 
Basic program to this address (*LOAD test 
22B6) and finally *SAVE the whole code 
from &2ØØØ to &4ØØØ. 


up the machine 


After completing the above, 
then *LOAD the code into sideways RAM 
(using *LOAD code 8ØØØ) or program the 
code into an EPROM. If you do use sideways 
RAM remember to press Break after loading 
the code and before typing *B to access 
the ROM. Fes] 


you can 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


CLEAR DESCRIPTION - John Thomas 


The Basic command, CLEAR, is described in the User Guide as resetting all variables 


except A%-Z% 


and 8%, to zero. However, it also clears the stack and so cannot be used 


within a loop or in a subroutine or procedure. 55] 
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BOOK 
“REVIEWS 


Wordwise Plus by Bruce Smith published by 
Collins at £9.95 
Reviewer: Mike Williams 


This book contains 238 pages covering 
both Wordwise and Wordwise Plus. Newcomers 
to both wordprocessing and Wordwise should 
find this book invaluable from the start. 
It contains, for example, about the 
clearest instructions I've seen for 
fitting a ROM into your machine. 


The early chapters introduce, with many 
examples, all the main features of Word- 
wise as a mwordprocessor. There are also 
frequent illustrations of the Beeb's key- 
board to highlight the use of a particular 
key or group of keys. Some may feel that 
this is overdone - who needs a third of a 
page diagram just to identify the Tab or 
Break keys? Newcomers, though, will find 
this attention to detail reassuring. 


The second part of the book is largely 
devoted to the use of Wordwise Plus as a 
programming language. Most of the features 
of writing Wordwise Plus segment programs 
are clearly described, and this is all put 
to good use in part three which contains 
16 complete segment programs. BEFBUG 
members may well feel that this whole 
subject has already been quite comore- 
hensively covered in the magazine. 


To sum up, this is a very well written 
and illustrated book and should sell well 
particularly to those with little or no 
experience of Wordwise. More experienced 


BBC MICRO 
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users of both Wordwise and the Beeb may 
feel that for them too much space has been 
wasted and that the price of £9.95 is high 
for what the book has to offer. 


Within the BBC Microcomputer by Roger Cullis 
published by Losco Ltd at £11.95. 
Reviewer: Ian Tresman 

'Within The BBC Microcomputer' holds 
pages of numbers and addresses, and a 
treasure of information for the curious 
trying to find what makes the BBC micro 
tick. This book describes all the major 
software systems by referencing the main 
subroutine entry point addresses. And 
unlike recent Basic reference books that 
have appeared, Roger Cullis not only goes 
into more detail, but covers a wider range 
of software too. You will find com- 
prehensive descriptions of these systems: 
OS 1.2, Basic I, Basic II, HiBasic, DFS 
Ø.9, NFS 3.34, 6502 Second Processor OS, 
Tube Comunications Routines. 


The layout of each system description 
is similar. Following a general memory 
map, zero page usage, and summary, the 
gazetteer details four to eight hundred 
routine entry points. For example, the OS 
1.2 sections shows you the start of every 
*FX and OSBYTE call, or even where the 


cassette filing system generates a 9.2 
second interblock gap. 
Although this book is printed on 


unusually thick, rough paper held together 


in the standard spiral bound format, do 
not judge it by its proverbial cover. Buy 
iy | 


6502 Reference Guide by Alan Tully, published 
by Melbourne House at £9.95. 
Reviewer: Mike Williams 


As the title suggests, this is 
essentially a reference guide to pro- 
gramming the 6502 CPU. The book starts 


with the usual chapters describing the 


. 
“ROGER CULLIS 
M 
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registers and the different addressing 
modes, but the bulk of the book is devoted 


to a comprehensive description of the 
complete 6502 instruction set. This also 
includes some useful information on 


timing. I would have liked longer examles 
showing the use of each instruction in a 


relevant context, rather than in 
isolation, and diagrams Showing how the 
bits are shuffled around between and 


within the registers. 


Personally, I still prefer my older 
'6502 Assembly Language Programming" by 
Leventhal (published by McGraw-Hill), a 
larger, more comprehensive and slightly 
more expensive book. The 6502 Reference 
Guide by Alan Tully is a good (and 
cheaper) runner-up. 


BBC Micro and Electron Book by Gavin Haines, 
published by McGraw-Hill at £11.95. 
Reviewer: Ian Tresman 


If the title sounds like just another 
run-of-the-mill computer book then read 
on. Gavin Haines presents a very readable 
introduction to the BBC Micro but does not 
stop there, and he does not make the 
mistake of resorting to computer jargon. 


There are sections aimed at the 
absolute beginner such as ‘Typing in 
programs', and ‘How to write a Basic 
program'. Of course, there is the usual 


description of Basic keywords liberally 
sprinkled with example programs. 


I suspect that the author's own 
experiences have caused to him to pen the 
more practical sections in his book. 
"After-sales queries", ‘Buying equip- 
ment', "Types of disk interface", and 
'Transferring your favourite cassettes to 
disk', are some of the areas covered. 


Once these topics have earned the 
novice his stripes, the book continues 
with not only an ‘Introduction to the 


4 BBC MICRO 
Wordwise ANernon 
Plus BooK 
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6592', and ‘Machine code hints', but 
‘Writing advanced software', and 'Selling 
your software". 


Whether you are just starting out with 
your newly acquired BBC Micro or Electron, 
or really exploiting its potential, then 
this book is for you. 


The Hitch-Hiker’s Guide to Artificial 
Intelligence by Richard Forsyth and Chris 
Naylor, published by Chapman and Hall at 
£8.95. 

Reviewer: Mike Williams 


It is worth mentioning at the outset 
that this book is available in two 
versions, the one reviewed here being in 
BBC Basic (the other is in Applesoft 
Basic). 

Artificial Intelligence is a subject 


that most computer enthusiasts have heard 
about, and maybe occasionally have read 
about in the popular press. Most would 
probably admit that in practice they were 
little more than novices in the field. 
This is where the authors of this book 
have stepped in with the aim of showing 
that artificial intelligence is exciting 
and well within the capabilities of most 
home users. How far the authors have 
succeeded you will have to judge for 
yourself. 


Certainly this is not a book for the 
faint-hearted. There is a fair sprinkling 
of theory throughout the book but all is 
presented in a very readable way. Typical 
topics covered by this book include expert 
systems, natural language, image pro- 

cessing, machine learning, oroblem 


ra] solving and game playing strategies. 


If you are tiring of 
conventional 
then this 


some of the more 
applications of computers 
book offers much food for 


thought. It is well written, attractively 


i) 


produced and well worth looking at. 
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CHINSSS 
CHEQOERS 


With the plum pudding eaten 
and the Queen’s Christmas 
message over for another year, 
what better than to relax with 
that traditional game of Chinese 
Chequers. Peter Clamp 
explains all. 


I have a maiden aunt - a retired 
mathematics teacher - for whom Christmas 
is not Christmas unless she can play 
several games of Chinese Chequers 
following the Plum Pudding and the Queen's 
speech. Appealing though this game may be, 
even the most festive family gathering may 
lack the stamina for a third or fourth 
game, particularly after a heavy lunch. 
So, as part of Christmas preparations last 
year, I recast this board game in a form 
for two players, of which one is that most 
tolerant member of the family, the Beeb. 


The rules of Chequers are straight- 
forward. Each player has ten counters 
which may be moved only by that player and 


remain on the board throughout. Players 
take turns to move a counter, either 
sliding to an = adjacent unoccupied 
position, or jumping over an adjacent 
counter (of either player) to an 


unoccupied position immediately beyond. 
Any number of such jumps may be chained 
together in a single turn. The winner is 
the first player to occupy the positions 
vacated by his opponent on the opposite 
side of the board. The human player must 
Manoeuvre the white counters to the top of 
the board, while the computer attempts to 
occupy the lowest positions with the red 
counters. The six possible directions are 
numbered as indicated by the direction 
rose" next to the playing area. 


To play well requires the exercise of 
considerable strategic skills. Frequently 
a player must make the choice between a 
jumping move which will take a counter, 
already advanced, into the home area, and 
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an undramatic shift of a lagging counter 
in danger of becoming stranded. 


To run this program on a machine 
fitted with a DFS, you must use a move- 
down routine such as that in BEEBUGSOFT's 
Toolkit or published in BEEBUG Vol.3 No.5. 


PROGRAM_NOTES 


PROChturn is used to input the human 
player's move, and check its validity. It 
also (line 1319) randomly selects which 
player makes the first move. 


PROCcturn is more interesting as it 
embodies the computer's game strategy. 
Essentially, this is to assess all 


possible sliding and jumping moves for all 
ten counters, and to perform the move that 
gets the best assessment. Sliding moves 
are easily identified: there is a maximum 
of sixty, of which some will be off the 
board or blocked by other counters, and 
are therefore not assessed. Jumping moves 
are more difficult to explore 
systematically owing to the possibility of 
multiple jumps. The problem is solved by 
means of recursion. 


The 
(X%,Y%,1en%-1,d%) 


recursive procedure PROCsearch 
investigates the six 
potential jumps by a counter at position 
X%,Y%, eliminating impossible jumps and 
also any jump that would reverse the 
direction previously travelled (held in 
d3). For each of the possible jumps, the 
position XE%,YE% at the end of the jump is 
first assessed, and then investigated by a 


further call to PROCsearch. Every 
recursive procedure needs a 'let-out' 
condition to prevent it from calling 


itself ad infinitum. PROCsearch ceases to 
call itself when len’ (the number of jumps 
in the move under consideration) reaches 
the value 6 given in line 2500. Without 
such a condition the computer might 
happily explore a fruitless triangle of 
three jumps until it exhausted its memory. 
The limit of six is arbitrary. You are 
welcome to change it, though a lower limit 
May cramp the computer's playing style, 
while a higher limit may exhaust the 
patience of its opponent! 


To while away the time during all this 
recursion, the computer doodles some 
ceremonial dragons - one ver counter - in 
the vacant area of the screen. These, and 
the (deeply researched) pentatonic fanfare 
that follows a winning move, are the only 
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ornamental concessions to the overall 
serious character of this game. In fact, 
the length and colouring of the dragon 
gives an indication of the number and 
length of jumping moves available to the 
associated counter (see lines 2460-2480). 


The assessment of allowable moves is 
made in the procedure PROCassess. The 
scoring of each move is based on a number 
of factors, including the starting row of 
the counter, the number of rows advanced 
by the move, the nearness of the final 
position to the centre line of the board, 
and the number of jumps in the move 
(assigned to zero for a slide). The 
highest priority would be given to a move 
which advances a straggling counter 
through the maximum distance to a position 
near the centre line (where it is less 
likely to become stranded). Since the same 
position may sometimes be reached by 


unnecessarily devious jumping routes 
(which rather spoils the effect when such 
routes are really necessary), shorter 


routes are favoured when all other factors 
are equal. Just in case the computer's 
moves should become too predictable, a 
small random factor is added. 


To complicate matters further, a 
slightly modified assessment is applied 
when more than seven counters have reached 
the home area. At this stage in the game, 
it is perhaps more important to approach a 
vacant home position than to advance for 
its own sake, and a factor of nearness to 
such a position is included in line 2589. 


A historical footnote: compared with 
the board game Go, which is genuinely over 
3000 years old, and originated in China 
under the name Wei-ch'i, Chinese Chequers 
is in reality a modern game derived from 
Halma, invented in England at the end of 
the last century. It is, in other words, 
about as Chinese as the BBC Micro. 


1Ø REM PROGRAM CHEQUERS 
2Ø REM VERION BØ.1 
3Ø REM AUTHOR P.CLAMP 


DECEMBER 1985 
SUBJECT TO COPYRIGHT 


4Ø REM BEEBUG 
5Ø REM PROGRAM 


MODE 7: PROCinstr:MODE1 
PROCinit 

REPEAT 

PROCstartgame 

REPEAT 
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PROChturn 
PROCcturn 

UNTIL FNgameover 
PROCreport 

UNTIL FNhadenough 
MODE7: *FX12,9 

END 


DEFPROCinit 

*EX11,Ø 

dum=RND (-TIME) 

DIM b% (6,6) ,Xinc% (6) ,Yinc% (6) ,this 


mv% (7) ,bestmv$ (7) 


1Ø4Ø 
1Ø5Ø 


DATA -1,1,Ø,1,1,Ø,1,-1,Ø,-1,-1,Ø 
FOR D$=1 TO 6:READ Xinc% (D%) : READ 


Yinc% (D%) : NEXT 


1Ø6Ø ENVELOPE 1,1,48,-48,0,4,4,12,127,1 
,Ø,-7,126,11Ø 

1076 VDU24,5ØØ; Ø; 1279; 1023; :GCOLØ, 13Ø:C 
LG 

1Ø8Ø VDU 28,0,29,14,2 

1990 b1k=@: red=1 : ylw=2:wht=3 

1100 VDU23,24Ø,&18,&24,&22,&12,8&Ø9,&E8, 
&C8 ,&BØ 

111Ø vDU23,241,818,824,822,812,809,888, 
&48,830 

1126 VDU23,242,&10,&18,&3C,&3A,&7E,&37, 
&1F,&Ø6 

113Ø VDU23,243,&18,&25,&23,&17,&09,&88, 
&48,830 

1149 ENDPROC 

1150 : 

116Ø DEFPROCstartgame 

1178 hmvs=Ø:cmvs=Ø 

180 REM Draw board, reset b% 

1198 nh=Ø:nc=1Ø 

1200 FOR X%=Ø TO 6:FOR Y%=0 TO 6 

1218 PROCgrid:b% (X%,Y3) =-1 

1220 IF X%+Y%<4 b%(X%,Y%)=nh:PROCcntr (w 


ht nh) :nh=nh+1 


1239 


IF X%+Y3>8 b% (X%,Y$)=nc: PROCentr (r 


ed,nc) :nc=nc+1 
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124Ø NEXT: NEXT 

125Ø REM Draw direction rose 

126Ø X%=-2:Y%=3:PROCcntr (wht,-1) 

1270 FOR D%=1 TO 6:X%=-2+Xinc% (D%) :Y%=3 
+Yinc% (D%) : PROCcntr (ylw,D%) : NEXT 

128Ø ENDPROC 

129Ø : 

13ØØ DEFPROChturn 

131Ø IF cmvs=Ø AND RND (2)=2 ENDPROC:REM 
Decide who starts 

132Ø IF FNhhome=1Ø ENDPROC 

133Ø hmvs=hmvs+1 

134Ø col=wht:CLS:PRINT "Your turn..." 
135Ø REPEAT:REM Until OK'd 

136Ø REPEAT:REM Until valid 

1370 PRINT "Which counter"'"to move?""" 
(Ø-9) ": cr=EVAL (FNget ("Ø123456789")) 

138Ø PROCfind:PROCflash 

139Ø PRINT "Slide or Jump?"'"(S/J/R)":M 
$=FNget ("SJR") 

14ØØ IF M$="5" PROCslide 

1410 IF M$="J" PROCjump 

1420 IF MS="R" valid=FALSE:PROCreplace 
143Ø UNTIL valid 

1440 PRINT"Move OK?"""(Y/N) ":aS=FNget (" 
YN") 

145Ø IF aS="N" PROCreplace 

146Ø UNTIL a$="y" 

147Ø IF FNhhome=1Ø AND FNchome<1Ø PROCw 
in("YOU") 

1489 ENDPROC 

1490 : 

1500 DEFPROCcturn 

1519 IF FNchome=1Ø ENDPROC 

1528 cmvs=mvst+1 

1538 col=red:CLS:PRINT "My turn..."''' 
1548 bestasst%=-1ØØØ:ch%=FNchome 

1559 FOR cr=1Ø TO 19 

1569 PROCfind 

1570 REM Try all poss slides 

1589 thismv$ (Ø)=-cr:len%=Ø 

1598 FOR D$=1 TO 6 

1690 IF FNcanslide thismv$ (1)=D%:thismv 
% (2) =Ø: PROCassess 

1610 NEXT 

1620 REM Try all poss jums 

1638 thismv3 (8) =cr 

1640 PROCsearch(XB%,YB%,1,-3) 

1650 NEXT cr 

1667 PROCcmove 

1679 IF FNchome=1% AND FNhhome<1Ø PROCW 
irae EA 

1689 ENDPROC 

1690 : 

1700 DEFFNgameover =FNhhome=1Ø AND FNch 
ome=1 ø 


1719 : 

172@ DEFPROCreport 

1738 CLS 

1740 PRINT'''"Total moves"'"this game" 
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175@ PRINT"You... ";hmvs 

1760 PRINT"Me... ";cmvs' 

1776 IF cmvs=hmvs PRINT"Actually..."""i 
t's a draw! ":ENDPROC 

178Ø IF cmvs>hmvs PRINT"You won by" 
179Ø IF cmvs<hmvs PRINT"I won by" 

18ØØ diff%=ABS (cmvs-hmvs) 

181Ø IF diff%=1 PRINT"just one move" EL 
SE PRINT;diff%;" moves" 

1820 ENDPROC 

1830 : 

1840 DEFFNhadenough 

1858 PRINT'"Another game?"'"(Y/N)" 

1860 =FNget ("YN") ="N" 

1876 
1880 DEFPROCcntr (col,cr) 

1890 MOVE FNxs-3Ø,FNys-3Ø:PLOT Ø,6Ø,Ø:G 
COLO, col:PLOT 81,-3Ø,7Ø 

1990 IF cr>-1 VDUS:PLOT Ø,-15,-3Ø:GCOL 
Ø,blk: PRINT; crMOD10:VDU4 

1918 ENDPROC 

1926 : 

1938 DEFPROCgrid 

1948 PROCcntr (ylw,-1):GCOLØ, blk 

1958 FOR D%=1 TO 6 

1960 IF NOT FNoffboard MOVE FNxs,FNys:P 
LOT 5, (FNxs+Xinc% (D%) *25-Y inc’ (D%) *25) , ( 
FNys+Xinc% (D%) *35+Yinc% (D%) *35) 

1970 NEXT 

1988 ENDPROC 

1990 : 

2000 DEFPROCfind 

2010 X%=-1:REPEAT X%=X%+1 

2020 Y%=-1:REPEAT Y%=Y%+] 

2030 UNTIL b%(X%,Y%)=cr OR Y%=6 

2040 UNTIL b% (X%,Y%)=cr 

2050 XB%=X%: YBS=Y% 

2060 ENDPROC 

2070 : 

2080 DEFPROCflash 

2090 PROCcntr (col,cr) : PROCblip:PROCcntr 
(2,cr) :PROCblip:PROCcntr (col,cr) : PROCbli 


p 

21ØØ ENDPROC 

2110 : 

2120 DEFPROCblip 

2138 SOUND 1,-1Ø,1Ø1+4*cr,8:TIME=Ø:REPE 
AT UNTIL TIME>4Ø 

2140 ENDPROC 

2150 : 

2160 DEFPROCslide 

2170 PRINT"Which"'"direction?"'"(1-6/R) 
2180 aS=FNget ("123456R") 

2198 IF a$="R" valid=FALSE:PROCreplace: 
ENDPROC 

2200 DS=EVAL (a$):IF FNcanslide PROCstep 
:valid=TRUE ELSE PROCsorry:valid=FALSE 
221Ø ENDPROC : 

2220 : 
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223Ø DEFPROCjump 

2240 PRINT"Which"'"direction(s) ?"'"(1-6 
ABR 

2259 aS=FNget ("123456FR") 

2260 IF a$="F" valid=TRUE:ENDPROC 

2270 IF aS="R" valid=FALSE:PROCreplace: 
ENDPROC 

2280 D%=EVAL (a$):IF FNcanjump PROCstep: 
GOTO 2250 ELSE PROCsorry:valid=FALSE 
2290 ENDPROC 

2300 : 

2310 DEFPROCstep 

2320 b% (X%,Y%)=—-1: XES 3=XE%: YES 3=YE%: PRO 
Cgrid:X%=XES%:Y3=YES%: b% (X%, Y%) =cr: PROCE 
lash 

2330 ENDPROC 

2340 : 

2358 DEFPROCsorry 

2360 PRINT "Sorry"'" -impossible!":SOUN 
D Ø,-15,2,1Ø:TIME=Ø:REPEAT UNTIL TIME>15 
Ø:PROCreplace:*FX15,Ø 

237Ø ENDPROC 

2380 : 

239Ø DEFPROCreplace 

2400 IF NOT (XB%=X% AND YB%=Y%) XE%=XB%: 
YE%=YB%: PROCstep 

2410 CLS:PRINT "Start again..." 

2420 ENDPROC 

2430 : 

244% DEFPROCsearch (X%,Y%, len%,d%) 

245Ø LOCAL D% 

2460 IF len%=1 VDUl7,red,24Ø:REM tail 
2470 IF len%=2 VDU17,ylw,241:REM body 
2480 IF len3=3 VDU17,wht,241:REM body 
2490 FOR D%=1 TO 6 

2500 IF ABS (D%-d%)<>3 IF FNcanjump this 
mv% (len) =D%: thismv% (len%+1 )=Ø: PROCasses 
s:IF len%<6 PROCsearch (XE%, YE%, len3+1 ,D% 
) 

2510 NEXT 

2520 IF len%=1| VDUl7,red,242,17,wht,243 
,10,19,13:REM head 

2538 ENDPROC 

2540 : 

2550 DEFPROCassess 

2560 browS=XB3t+YB%: crowS=XES+YE3: adv%= 
row%-erow%:dev%=ABS (XE%-YE% ) 

2570 IF ch%<=7 asst%=adv3*] B+brow3*3-de 
v%*3-len%*2+RND (3) 

2580 IF ch%>7 asst3%=adv3*]Ø+brow3%*1Ø-AB 
S ((XE3-YE$)- (Xvac3-Yvac%) ) *1Ø-1en%*2 
2590 IF asst%<bestasst% ENDPROC 

2600 bestasstt=asst% 

2610 FOR M3=Ø TO 6:bestmv$ (M$)=thismv$ ( 
M$) : NEXT 

262Ø ENDPROC 

263Ø : 

264Ø DEFPROCcmove 

2659 cr=ABS (bestmv3 (Ø) ) : PROCf ind: PROCf1 
ash 
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2660 IF bestmv$ (Ø)<Ø D%=bestmv3 (1) : dum= 
FNcanslide: PROCstep:REM Sliding move 
2670 IF bestmv$ (Ø) >Ø M%=1:REPEAT D%=bes 
tmv% (M$) :dum=FNcanjump: PROCstep:M%=M%+1: 
UNTIL bestmv% (M3) =): REM Jumping move 
2688 ENDPROC 


2690 


2700 DEFPROCwin (wS) 
2718 CLS:FOR W$=1 TO 2Ø:PRINT w$+" WON! 
! "; NEXT: PROCmusic 


2720 


2730 


2740 


2750 


8,1 
,137,8,129,4,137,4,117,4, 


293Ø 


ENDPROC 


DEFPROCmusic 
RESTORE 2760 
DATA 149,8,137,8,129,8,137,8,149,8 
2,0 

TIME=Ø 

REPEAT READ ptch,durn 
SOUND&101,1,ptch,durn 
SOUND&1 92,1 ,ptch-28,durn 

UNTIL ptch=Ø 

REPEAT UNTIL TIME>3ØØ 

ENDPROC 


DEFFNget (r$) 
REPEAT: a$=GET$: UNTIL INSTR (r$,a$)> 


COLOURy lw: PRINT a$ : COLOURwht 

=a$ 

DEFFNxs =950+ (50* (X%-Y%)) 

DEFENys =1ØØ+ (7Ø* (X%+Y%) ) 
DEFFNhhome 

count%=Ø:FOR X%=3 TO 6:FOR Y%=3 TO 


IF X%+Y%>8 AND b%(X%,Y%)>=Ø AND b% 


(X%,Y%) <=9 count%=count%+1 


2946 
2958 
2969 
2970 
2980 
3 

2990 


NEXT:NEXT 

=count% 

DEFFNchome 

LOCAL X%,Y% 

count%=Ø:FOR X%=Ø TO 3:FOR Y%=Ø TO 


IF X%+Y%<4 AND b%(X%,Y%)<10 Xvact= 


$:Yvac%=Y% 


3ØØØ 


IF X%+Y%<4 AND b% (X%,Y%)>=18 count 


%=count%+1 


3018 
3020 
3030 
3040 
3050 
3060 
3070 


NEXT: NEXT 

=count% 

DEFFNoffboard 
XE%=X%+Xinc% (D%) : YES=Y%+¥Y inc’ (D%) 
=XE%<Ø OR XE%>6 OR YE%<@ OR YE%>6 
DEFFNcanslide 

IF FNoffboard THEN =FALSE ELSE =b% 


(XES, YES) =-1 


3080 


DEFFNcanjump 

X1%=X%:Y1%=Y% 

tl=NOT FNcanslide:X%=XE%:Y%=YE% 
t2=FNcanslide:X%=X1%:Y%=Y1% 

=t] AND t2 


49 


BEEBUG MAGAZINE is produced 
by BEEBUG Publications Ltd. 
Editor: Mike Williams 

Assistant Editor: Geoff Bains 
Production Editor: Phyllida Vanstone 
Assistant Production Editor: 
Yolanda Turuelo 

Technical Assistant: Alan Webster 
Secretary: Debbie Sinfield 
Managing Editor: Lee Calcraft 
Additional thanks are due to 
Sheridan Williams, Adrian Calcraft, 
John Yale and Tim Powys-Lybbe. 
All rights reserved. No part of this 
publication may be reproduced 
without prior written permission of 
the Publisher. The Publisher cannot 
accept any responsibility, whatso- 
ever for errors in articles, programs, 
or advertisements published. The 
opinions expressed on the pages of 
this journal are those of the authors 
and do not necessarily represent 
those of the Publisher, BEEBUG 
Publications Limited. 

BEEBUG Publications Ltd (c) 1985 
Editorial Address 
BEEBUG 
PO BOX 50, 

Holywell Hill, 

St. Albans ALI 3YS 


CONTRIBUTING TO BEEBUG 
PROGRAMS AND ARTICLES 


We are always seeking good quality 
articles and programs for publica- 
tion in BEEBUG. All contributions 
used are paid for at up to £40 per 
page, but please give us warning of 
anything substantial that you 
intend to write. A leaflet, ‘Notes 
of Guidance for Contributors’ is 
available on receipt of an A5 (or 
larger) SAE. 
In the case of material longer than 
a page, we would prefer this to be 
submitted on cassette or disc in 
machine readable form using 
“Wordwise”, “View”, or other 
means, but please ensure an 
adequate written description of 
your contribution is also included. 
If you use cassette, please include a 
backup copy at 300 baud. 

HINTS 
There are prizes of £5 and £10 for 
the best hints each month, plus one 
of £15 for a hint or tip deemed to 
be exceptionally good. 
Please send all editorial material to 
the editorial address above. If you 
require a reply it is essential to 
quote your membership number 
and enclose an SAE. 


SUBSCRIPTIONS 


Send all applications for membership, subscription renewals, subscription 
queries and orders for back issues to the subscriptions address. 


MEMBERSHIP SUBSCRIPTION RATES 


£ 6.40 6 months (5 issues) UK ONLY 
£11.90 UK - 1 year (10 issues) 


£18 Europe, £21 Middle East 

£23 Americas & Africa, £25 Elsewhere 
BACK ISSUES 
(Members only) 


Single Volume sets 
issues (10 issues) 


Each 
subsequent 
DESTINATION 


UK 


Europe 
Elsewhere 


All overseas items are sent airmail (please send a sterling cheque). We will 
accept official UK orders but please note that there will be a £1 handling 
charge for orders under £10 that require an invoice. Note that there is no 
VAT on magazines. 


Back issues are for members only, so it is ESSENTIAL to quote your 
membership number with your order. Please note that the BEEBUG 
Reference Card and BEEBUG supplements are not supplied with back 
issues. 
Subscriptions, Back Issues & 
Software Address 


BEEBUG 
PO BOX 109 
St. Johns Road 
High Wycombe HP10 8NP 


Hotline for queries and software orders 


St Albans (0727) 40303 
Manned Mon-Fri 9am-4.30pm 


24hr Answerphone Service for Access and 
Barclaycard orders, and subscriptions 
Penn (049481) 6666 


If you require members’ discount on software it is essential to quote 
your membership number and claim the discount when ordering. 


DYNAMIC DI 


TESTED BY BEEBUG 


BEEBUG, the largest independent 
computer user group in the UK, offer 
100% tested discs supplied by one of Britain's 
leading disc manufacturers. 


Orders for 
25 are 
delivered 
in strong 
plastic 
Storage 
box 

with 4 dividers. 


Orders for 
10 discs are 
sent in 

black plastic 
library cases. 


Orders for 
50 are 


delivered 
in strong EE 
o and deliver; 
plastic E Y to your dog 
Suit or (UK) 
Storage incl BBC Micro and all oth, 
box ari and Commodore, «omputers 


Fully Guarani "sing St inch discs 


with 4 dividers. teed — 
isc manufacturers Not only by Beebug but b 
a ol 


ne of the UK's top 


RDER _ Please supply me Name + | 
FORM = BEEBE S| 


£ 
£ 
Official orders welcome @ £ 
Access/Barclaycard 
24 hrs line 0494 816666 Total cheque enc. £ 
Further information 
on helpline 0727 40303 


To Beebugsoft, PO Box 109, High Wycombe, Bucks. HP 10 8NP 


ail 


dk 


PES GE DE RE TN dd PTR NORR 


Magazine Cassette/Disc 


Morfix 


DECEMBER 1985 CASSETTE 
DISC CONTENTS 


BEEBUG FILER — combined parts 1 and 2 of the 
BEEBUG database manager 

FULL SCREEN BASIC EDITOR — full screen editing 
of Basic programs 

WORDWISE PLUS EXAMPLES — final segment 
programs from the series Ataona Hatta 
PERSONAL DIARY MANAGER — get 1986 off to a RER De 
good start oe Managing Director 

SURE SAVE UTILITY — no more lost programs " 
PROGRAMMING SIDEWAYS ROM AND RAM — 
storing and loading Basic programs 

WORKSHOP PROCEDURES — Bubble Sort and 
Quick Sort 

FIRST COURSE — colour blending demonstration 
CHINESE CHEQUERS — a traditional game 

for Christmas 


EXTRA FEATURES THIS MONTH A PA 
MORFIX — a delightful game to entertain and 


challenge you this Christmas, and with associated 

competition (see supplement for details) aring 
MAGSCAN — data for this issue of BEEBUG 

(Vol. 4 No. 7) 


Tae Managing Director 
MO Whitehill Crescent, 
lal], 


ma x 


BEEBUG Filer 


PL: 
Loading Format FOG 
an 


Personal Diary Manager 


All this for £3.00 (cass) £4.75 (disc) +50p p&p. 
Back issues (disc since Vol. 3 No. 1, cass since Vol. 1 No. 10) available at the 


same prices. 
Subscription rates DISC CASS DISC CASS 
UK UK O'seas O'seas 
6 months (5 issues) £25 £17 £30 £20 
12 months (10 issues) £50 £33 £56 £39 


Prices are inclusive of VAT and postage as applicable. Sterling only please. 


Cassette subscriptions can be commuted to disc subscription on receipt of 
£1.70 per issue of the subscription left to run. 


All subscription and individual orders to 
BEEBUG, PO BOX 109, St. Johns Road, High Wycombe HP10 8NP 


Printed in England. DCL 12530 


